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VAN HET SEKRETARIAAT 



Qnianss kreeg ik te horen dat het iemand was geiukt de ton i tor van de Junior op een Acorn-Atom Te 

I a ten werken. fine Junior software werkt nu ook op de Acorn. Alieen is het jammer dat daarmee nog seen 

enkei Junior programma op een PET of op een fiPPLE nil werken, Ook werkt »t Jn APPLE-software gegarandeerd 

niet op uw Junior* KIM of SYM. Elke fabrikant heeft nu eenmaal zwn eigen ton i tor of operating system 

bedacht I Ik zou U willen vragen daar nu eens iets aan te doen. 

Allereerst door nu eens geen programma' s te schrUven voor uw Junior of KIM of wat U dan ook bezit* 
Maar voor de 6582, Bezitters van de ASSM/TED van C.Moser kennen de 'conditional assenting 7 faciiiteit. 
Een heel belansriJk huiPfiiddei ! Het kan echter ook zonder. I4aar het ow gaat is* dat in uw program 
Z# If geen I/O routines voor mogen Komen. Een voorbeeld: Op aile Commodore machines wordt het karakter in 
de accumulator afgedrukt door JSR $FFD2 aan te roepen. Dat afdrukken gebeurt niet op het beeidscherai 
maar op het 'current output device'. Dat zal meestal wel het beeidscherm ziJrn maar kan ook een printer, 
disk of cassetterecorder zijn. Evenzo behoeft een input karakter niet aitud van het toetsenbord te 
komen. Stuur uw output nu eens op een andere manier weg: 

LDA #$BD ;CRLF IN A 
JSR OUTPUT "PRINT IT 

En aan het einde van uw programma: 

output nop 
nop 

NOP 
RT3 

Vertel nu in uw documentatie precies wat deze routine wet doen. In deta; ! ! Dus bi jvoorbeeid: 

output : Stuurt het karakter in de accumulator naar het 'current output device', 
input: Leest een enkei karakter van het toetsenbord. wacht op deze toets Met zichtbare cursor. Het 
karakter komt in ascii in de accumulator, 

Het is onsewenst on zelf voor aile machines die drie 'NOP' bytes in te gaan vulieni temeer daar alleen 
maar invullen meestai niet kan 5 Zo kent de APPLE geen routine die zonder meer een karakter weg stuurt, 
De APPLE kent wel een routine die een APPLE Karakter weg stuurt naar het beeidscherm maar diverse 
randapparatuur moet anders aangestuurd worden. Toch zou het handis ziJn als iedereen over een universele 
I/O beschikte 7 zonder dat we daarbii nu direct moeten denken aan een 'CPH' voor de 5582. Een soort 
'basic code' maar dan voor machinetaal. We zuilen daartoe een aanta! afspraken moeten aaken* in een 
voigend Hummer van de £582 kenner zal ik daarover enige voorstellen doen. Dat kan niet zomaar 5 Uw in- 
brens is daarbiJ noodzakel ijfc en verder is het van sroot belang dat we een inzicht krijgen in de 
beschikbare geheugenruimte (vrij RAM) van de diverse machines, flls U geinteresseerd bent, bel mi J dan 
eens op. 

lets geheel anders: In Arnhem vinden nu reselmatig regionaie hi Jeenkomsten Plaats in 'HET DORP'. Elke 
eerste en derde aaandas van de maand bent U vanaf 20. Uu welkom. Aktiviteiten op dit moment tiftf 

-Zeifbouw van een aantal APPLE'S (machtig mooi !) 

-Cursus 5502 assembler (Maar wei meteen gestructureerd Prosrammeren !) 

Tot ziens dus ! 



Ruud UPhoff 
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Datum s zaterdag 21 me i 19S3 
LOkat ie 5 Restaurant De Roskam 

Turfmarkt 2 te KatwiJk aan den Him 

Re is routes Men vo 1 9t met de auto de oucie r s j ksweg Den Haas 
ft' dam. 

ftfslag KatWijK - Ri Jnsburg richting KatwuK 
tot aan k r u i s i m met I i nks een mo I en 
Rechtsaf 

na ca. 100 meter rechts DE ROSKRM. 



Toegangspr i J s< mci. Koff ie, lunch en fr isdrankje 



Programmes 



% 
m. 



30 
00 



■0. 11 



1 1 



14, 
14, 
14, 
17, 



00 

30 
00 

00 

00 

15 
30 
00 



On t v an s s t m#t k o f f I e 
Open i )V3 

Ruud UPhoff. Levins over uru verse ie 6502 software 
(deze i ez l ng was oorspronke 1 i J k gep ! and voor 19 maart •.• 
doer, kon n i et doorgaan wesens z j ekte van Ruud) 
Kof f i epauze 

D i 5KUS5 i e met Ru yd ove r un j ver se I e G502 softwa re 
Lun ch 

Ruud Uphoff- Informatie over oneige! lake opcodes 
in 6502 
For urn 
Markt 

I n f o f mee I g ed ee i t e 
S i u i t i ng. 

BRENG UW APPfiRflTUUR MEE ] i ! 



U 13 



in: "COSVERSIE VAN DRTUH ffifiR D8G VM DE WEEK Vifi LDPEND DISPLAY" 

Frens ilepschen uit Zuidbroek seidt dat het prosra«tta "taiversie 
van datu* naar das van de week via iopend display" jn^DE 5582 
_ niet helemaal viekkeioos is. Op ad res $838C e. v. 
- 8C 81 18. Hierdoor saat de PIS naar input, waar- 
door hi j seen display aeer heeft. Verandert sen het in SB FF - 
SC 81 Ifij dan is dat probieett ver hoi Pen. Het prosrauna maakt 
voorts van ianuari en februari resP. de dertiende en veertiende 
■wand Het sevoi9 is dat de getoonde dasen niet ail e korrekt 
ziin. Se voigende wiizisins verheiPt het euvei. 



8255 
8258 
8259 
B25B 
825D 



C6 F3 
18 

S3 12 
55 Ffi 
85 Ffi 



DEC DISFC 

etc 

LDfi W12 
fiDC DISFB 
STfi DISPB 
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INHOUD BQSIC CASSETTE NR. 2 
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Hi T PQMT 
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* — ' r~J L/ 
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GETAL RADEN 
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2000 


23 1C 


c 




2000 


23 IC 


D 


ZEEGEVECHT 




2000 


2CB0 


D 


ZEEGEVECHT 




2000 


2CB0 


E 


CLP. I RE (ADRE8BESTBND) 




2000 


42S4 


| 


CLAIRE (. ADRESBEST AND ) 




2000 


4234 
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POKER 




2000 


3AD5 


ft 


POKER 




2000 


3ADE 


G 


VIEROP EEN RIJ 




2000 


2B 1 1 


G 


VIEROP EEN RIJ 




2000 


2B1 1 


H 


ZOEK HET WOORD 




2000 


3540 


N 


ZOEK HET WOORD 




2000 


3540 


1 


WOORDSPEL 




2000 


2E2.7 


I 


WOORDSPEL 




2000 
2000 


2E27 


J 


FAKTUUR FR. SflEEHUIZEN 


25 




5 


FAKTOUR FR. SMEEHUIZEN 


25 







P fog ramma 7 s i n tie eassetteb i b i i ot heek 2 i j n of o r i 1 i nee I 
van on z e c i obi ed en o f bewe r k i n sen van d r 03 rawma 7 s u i t he t 
First Book of Kiffli of andesz i ns. ft I ie rechten van de pro- 
gramma's b 1 i J ven aan de auteurs voor behouden. De kosten 
van de cassette zun an een maar kostendekkend en niet be- 
d o e' ! d o m d e p r o s r a m m a 7 s t e K o p e n . 
DE CLUB IS EN WORDY BEEN HftNDEL! 
Kosten Per cassettes F l . 12i 50. 

Beste ! i en van de cassette onder opgave van naam» ad res en 
number van de cassette + naam van het systeem C JUMIOR/KIli) 
verseze i d van een s i robetaa \ kaart of door overschr i -i v i ns 
op Post reken ins S41433 t.n.v. W. L. van Pelt te Krimpen a.d. 
I Jsse 1 - 

And* re w i J zen van beste I ! en z i j n n j et mom* I i J k. 
RENUMBER EN APPEND VOOR DE SYM-BftSIC VOOR -JUNIOR 

= = = = = -~.-~. = .-- = = = »~, = ._~ = = = .-~_.. — . SS SS SS SSSSSS SS SS SS SSSSSS SSSS SS -v.: — zzz — : — : 

E ! ders i n deze ed i t i e kunt u vernemen dat Koen van N » euwenhove 
voor bezitters van een KB 3 BASIC een Renumber-subrout i ne 
schreef 1 hetweik niet za! word en gepub! iceerd wesens ontbreken 
van tiJd qm het commentaar er hi 4 te schriJven? maar dat niet- 
temin thans beschikbaar is op Papier. 

Het zel f de is het sevai met Renumber en Append dat door Jaron 
BorensztaJ n aansepast we rd voor de voor JUNIOR gepatchte SYM- 
Bas i c- Het bet reft h i er een Moser- I j st i ng en kost F 1 . 7i 00- 
Wie over Micro-Ade beschikt Kan binnenkort over de Renumber en 
Append subroutine beschikken op de band. IB i J de samenst e S I ins 
van een bib! ; • ot heek — cassette nr. 3 zal deze subroutine worden 
it) e e g e n o m e n . 

Deze Renumber en Append past b j J de even een s over niet ai te 
) anse t i Jd verwachte pub i i kat i es van Frans Smeehu i J zen met be- 
trekking tot u i tbre i d i ngen rond de SYM-Bas i c voor JUNIOR. 



HCC-DAGEN 

:+::+; = = = = = = = = = = = = = = = = = ff:H-*- 

H-:H-: :+::+: 

Op zaterdas 15 en z on das 16 oktober 19S3 worden weer 

**> de sebru i ke I i J ke HCC-Dasen te Utrecht gehouderh w*ar *** 

>f::+ : onze c i ub hoopt met vee I en the us i aste club! eden a an - mm 
w wezis te kunnen ziJri7 het Mefst met hun systeem. 

Heeft u be l ansstel 1 i ns, i aat het dan even wet en aan 

&m de redaktie. mm 
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In de eerste Piaats even aandacht voor wat binder reciaktio- 
ne ! e a an s e i eg en hed en « 

ACORN ATOM 9ebru i kers KriJgen steeds meer be I angste i \ i ng 
voor de omgang met mac h i net aa i » Het een en ander heeft a I 
eens seieid tot afspraken op best uu r i i J k n i vo. Uiteinde- 
\ i J k k on den op dat n i vo seen concrete resuttaten worden 
bere i kt waar het s \ ng om sed&chten i n de r i cht i ng van een 
f us i e. Dat zit 7 m voo r name I i j k in het 9 eg even dat er van 
statutaire regel i ngen gesp roken meet kunnen wo r den bSJ de 
met elkaar sprekende part i Jen- In ons geval was dat g^rn- 
geld) in het andere geval niet. 

Toch komt er iets van de grond dat een aanzet kan zijn 
voor een nauwere samenwerk i ng : 

'^ere ie en 3e Maandagavond van de maand 
REGIONALE CLUB BIJEENKQNST AFNHEM 
hi "HET DORP' 1 

C in de ha l van de per son ee l sf ! at 
wordt de zaa) aangegeven) 
Organ i sators Henk Deutekom. Te I . : 01303 -■ S3S7 

We komen nog eens terus op de tekst-ed i tor 7 assembler en 
disassembler MICRQ~ADE van Peter J'enn i ngsi van welke 
f«et senoesen konstateren dat oe be i angste i : trm met de das 
t oeneemt ■ 

Het liJkt de moeite waard de doKuwentat i e - bestaann.-. LJ jt 
4K Kin manual 7 4K KIM sou r ce- I i st i ng 7 patches tot 3K sla- 
vers ie en Patches tot 8K JUN I QR~ver s \ e - in te duiken aim 

te komen tot een SK JUMIQR source listing, mose^uk idem 

d i to voor de KIM. Er wordt a J seciert een jaar met enige 
onderbrek i ng aan seP I oeterd en net z i et ernaar y i t dat h#t 
eind nu in zicht komt voor JUNIOR: er staat nu ai 4 1/4 K 
op papier. Wie hiervoor be I angste i I i ng heeft kan vriJbtiJ- 
vend intekeneri b i j de redaKt ie. TeziJnertiJd zu I i en we het 
een en ander I at en wet en? b i j voo r bee l d over het felt dat 
het n i et voor een a.PPe ! en een e « kan* maa r m i ssch i en we! 
voor een redei uke versoeding, De ! ; ef neboe r za; er rtl ei k 
geva ! een moo i stukj e gereed&ch&P mee verk r i J gen. 

Ten behoeve van toekomst i gebru i kers van HI CRO--ADE vet- 
gen h i e render de User Spec I f i ed Addresses. 

PI JUNIOR SUBR TO PACK PSC1I 3 
THE CASSETTE READ SUBROUTINE 

THE CASSETTE WRITE SUBR 
THE KEYBOARD INPUT ROUTINE 
THE PRINTER OUTPUT ROUTINE 
ilwfiTIQN 

2EA3 43 SOURCM * $43 SOURCE T ABLF~- '} 

£§8£ §°! J S * START OF SOURCE-TABLE 

2Eft5 5u SOURCF- « *5C END OF SOURCE-TABLE 

DEFINITION OF SYMBOL-TABLE LOCATION 

^EA7 44 SVMr * $44 END OF SYMBOL-TABLE 

DEFINITION OF OBJECT LOCATION 

2EAS 5E OBJECT - £5E 

DEFINITION OF XREF-TABLE 

1181 IP i^MXR F = *5C START OF XREF-TfiBLE 

-EGA 5E SYMMAX = *5E END OF XREF-TfiBLE 

W. L. Van Pelt, 



2E34 


4C 


38 


3F 


PftCKT 


JMP 


PACKT1 


2E97 


4C 


fiF 




READ 


JMP 


GREfiD 


2E9fi 


4C 


35 


2F 


WRITE 


JMP 


CWRITE 


2E3D 


4C 


00 


30 


INPUT 


JftP 


INPRTN 


2Efi0 


4C 


34 


13 


OUTPUT 


JMP 


PRCHfi 










DEFINI 


TION OF 


SOURCE 
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TITLE MAAK Vftfel JUNIOR EEN SENIOR. 

2"T« r*!** "T^ *T* *T* *T^ "T" *T* *T* *T* "T* *t* *T* •T* *T* *T* *T* "T* -T* *T* *T* *T* *T* 'T* *T* H** *T* ^T* ^T* *T* *T* *4"* H"* *T* H"* *T* 'T'* *T* 'J'* 'T* *T^* 4* *"fr* 'I'* Af* "T* 't* ^» ^* ^T* "T^* ^* *T* ^» ''t* 

*:* 
** 

MfifiK VfiM JUNIOR EIEEIv! SEN X OR 

*# DOOR : P. FRftlMSEN *■* 

** vOGRDEWIND 21 ** 

** AMSTERDAM. *• 

•V* •T* *4** W** *T* *X* ^T* *T # "T"* ^4"* *T* ^t* ^T* *T* ""I** *T* "T* *T* *T* *\ m «T* - T* ^* *V" ^* *"!*• *T # ^* *T* ""V* •4"* •!** ^* *T* ^T* *^T m *^ *T* 

• Kin Mf"T r\r- r t hma nnnrn^i r**i rrTnnKitnp rkirnpTrrrnAAT Tr 

... imu He i uL r i hPIH rnuiui^ cllu i nuniuo cNc.r\bicoi pimhi oo 

>t mhhkDEN IS HET GELUKT DM EEN DISK DRIVE SYSTEEM OP NUN JUNIOR 
Pi AN TE SLUITEN. DE VERANDERING IB ZGDANIG DAT JUNIOR NU EEN SENIOR 
MET VEEL MOGELI JKHEDEN IB GEWORDEN. 
HET NIEUWE SYSTEEM BEVAT 0. A. 

■r- u x or\ urcpiM i x imu :j t o i ccn l ie i rxN mmim i ml u x i uejDr\e x ua rJiMr\i ica 

riM PKiri r-ki MAi/i/r~i t t i .•• ksti — r r\r~ t\t pi/ -rr- i ir- r*M.-- r— h i 
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MOGELI JK MAKEN. DEZE V'ECTOREN KUNNEN, TIJDENS HET LADEN 
VAN EEN PROGRAMMA VAN DISK, AUTOMAT I SCH DOOR HET DISK 

nnnpriAMMA i innnpki r kinri u u ta 

r r\uu r\MiuiM wurl/cim xiMuevueb- 

* OBJECT CODE KAN GELADEN OF GEDUMPT WORDEN NAAR ELK INPUT OF 
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EEN DISKETTE TE I NIT I EE REN, FILES TE REN AMEN, TE DELETEN, 
TE RECOVEREN OF OM EEN SCHIJF TE COMPRESSEN. 

OP HET NIEUWE SYSTEEM ZIJN AAN TE SLUITEN: 

* 2 ENKELZ I JDIGE OF DUBBELZI JDIGE S 1/4" FLOPPY-DISK DRIVECS) 

... ppki pPkiTnnkiTpp r - i ahai i r--i nnTkiTr~r\ 

t- ccim ucim 1 nuiM x uo r" m r\ m l_ u. c l_ rr\xiMien 

* EEN EXTRA RS 232 IN-OUTPUT DEVICE MET 
SOFTWARE IN ST ELBA RE BAUDRATE. 

DE AANSCHAF EN DE VERANDERI NGEN BESTAAN UIT DE VDLGENDE ZAKEN: 
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3 EE!\i ftftNTftL RRNPftBSINGEN DE JUNIOR. 

4 EEN V CEDING VGOR DE DISKDRIVE. 

5 flftNPftSSINGEN. 

E BESCHIKBmRE SOFTWARE. 
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ALGEMEEN DVERZICHT. 

PROTON ELECTRONICS IB FABRIKANT VAN MICROPROCESSOR SYSTEIiEN. ZIJ 
HEBBEN EEN ONT W I KKEL I NGSSYSTEEM OP BASIS VAN DE S502. DIT SYSTEEM 
WERKT STANDAARD MET 2 FLDPPYDISKS. DOOR NU HET MDNITORPRGGRAMMA 
VftN DIT ONTWIKKELSYSTEEM TE GEBRUIKEN OP DE JUNIOR VERKRIJGT DE 
JUNIOR DE AANSLU I TMOGEL I JKHE I D VftN FLOPPYDISK. 
HIERDOOR WORDT ONZE VERTROUWDE JUNIOR EEN SENIOR-COMPUTER. 
ftLS DE R.S. T. TOETS WORDT BED I END MELDT SENIOR ZICH MET DE TEKST I 

" PROTON SENIOR V4. 5 * 

DE JUNIOR WORDT NU EEN COMPUTER MET DRIE ftF Z ONDERL I J KE MONITOR 
SYSTEMEN DIE ftFHftNKELI JK VftN ftftNROEP INDI VIDUEEL GEBRUIKT KUNNEN WDRDEN. 
IN DIT ftRTIKEL SPREKEN WE OVER "JUNIOR" ftLS WE P.M. OF T. M. BEDOELEN 
EN OVER "SENIOR" ftLS HET GftftT OVER DE NIEUWE CD. 0. S. ) MONITOR. 
DE STftNDftftRD MONITOR DIE VIA HET HEXftDECIMftLE TOETSENBORD WORDT 
BED I END » BLIJFT EVENftLS P.M. EN T. M. NORMfiftL BRUIKBfiftR VOOR 
BEBTftftNDE PROGRftMMft' S 

OOK fiLLE MOGEL I JKHEDEN VftN DEZE MONITOREN KUNNEN DIRECT Nft HET 
BEDIENEN VftN TOETS "J" WORDEN GEBRUIKT. 

DE DISK UNIT'S WORDEN ZOWEL ftLS DE PRINTER Vlft HET AftNSLUITPRINTJE 
DP DE CONTROLLER KAART AANGESLOTEN. OP DIT PRINTJE BEVINDT ZICH OOK 
DE RS 232 AANSLUITING. 

HET BIJ MI J WERKENDE SYSTEEM FUNCTII 




DE PUNTEN 1 T/M E WORDEN HIERNA STUK VOOR STUK BEHANDELD. 
. PG 

PUNT 1.1 DISKDRIVE UNIT. 

DE FDC-4 FLOPPY-CONTROLLER KAART IS ONTWORPEN OM ALLE TYPE 
TE KUNNEN BEDIENEN. SINDS DHR. SHUGART DE 5 1/4" DRIVE POPULAIR GEMAAKT" 
HEEFT, MAKEN (BIJNfi) ftLLE FftBRIKftNTEN VftN DRIVES EEN ' SHUGART COMPATIBLE' 
DRIVE. DE DISK-DRIVE DIE IK HEB IS VAN HET FABRIKAAT 'OLIVETTI'. 
DEZE IS ALS ENKELZI JDIGE EN ALS DUBBELZI JDIGE DRIVE LEVERBAAR. 
DE DRIVE WORDT ZDNDER OMBOUWKAST GELEVERD ZODAT EEN IEDER OP ZIJN 
EI GEN MftNIER DE DISK IN ZIJN SYSTEEM KftN INBOUWEN. 

DE OPSLAGCAPICITEIT VAN DE DISK BEDRAAGT BIJ ENKELZI JDIGE DRIVE 
CA. 31 KBYTE VRIJE GEBRUIKERS RUIMTE. 

DE SCHIJF WORDT SOFTSECTORED VERDEELD IN 40 TRACKS (SPGREN). 
DEZE TRACKS ZIJN OP HUN BEURT WEER VERDEELT IN IS SECTDREN. 
ELKE SECTOR IS 12S BYTE'S GROOT. 

TOTAAL ZIJN ER IS KEER 40 = 720 SECTOREN. HET SYSTEEM GEBRUIKT 
ER ZELF 5 ZODAT ER 715 SECTOREN VOOR DE GEBRUIKER VRIJ ZIJN. 
C 715 KEER 12S BYTE = 31520 BYTE ). 

EEN DUBBELZ I JD I GE DRIVE BEVAT EXAKT 2 MAAL ZOVEEL. 

PUNT 1.2 CONTROLLERKAART. 

DE PROTON CONTROLLERKAART IS EEN DUBBELZI JDIGE PRINT. 
ALS DE COMPONENTENZ I JDE NAAR BOVEN GERICHT IS EN DE KAART 
MET DE ONDERDELEN OVEREENKOMSTIG FIGUUR 4 WORDT GEHOUDEN, DAN IS 
DE RECHTERKANT DE AANSLUI TZ I JDE VOOR HET ftftNSLUITPRI NTJE NftftR 
DE DISK. 

DE TELLING VftN DE CONTfiCTBftNEN IS DON ftftN DE BOVEN ZIJDE VftN 
0 T/M Z EN I fiAN DE ONDER ZIJDE VftN 1 T/M 22. LET HIER OP MET 
OPSTEKEN VftN HET AANSLUI TPRI NTJE ! 

DE AANSLUITING AAN DE LINKERKANT IS ZOALS FIGUUR 4 AANGEEFT VOOR 
DE VERBINDING MET DE BUSKAART VftN DE JUNIOR. ftAN DE BOVEN ZIJDE 
TELT DIT VAN 1 T/M 22 EN AAN DE ONDERZI JDE VAN A T/M Z. 
DE VERBINDINGEN MET DE JUNIORBUSKAART ZIJN ALS VOLGT : 



WOD'SJaMOIjAftOp'MMM 



E5DE 



KENMER 



— 



. PG 

FBC- 



•4 ^ CONTROLLERKAART 



A 
B 

5 

E 
F 
H 
J 
K 
L 

M 
II 

N 
P 
R 
S 
T 
U 

l l 

V 

w 

X 
V 

z 

DEZE VE 
WAARBU 
ZD KDRT 
FLATKAB 
INDIEN 
IS MET 
MET BEb 
BIT U 
DE ! 



N. C. 

RDY 

Di 

IRQ 

S. 0 

MM I 

RES 

D7 

D& 

D5 

D4 

D3 

D2 

Dl 

DB 



■IE 



vU 
i ir%i 
vUl 



SEL 



.T 
.T 



I/O 
N. C 
N. C 

+ 5 VOLT 
MASSA 

AB 

Al 

A2 

A3 

A4 

A5 

AS 

A7 

AS 

A3 

A1B 

All 

A12 

A13 

Ala 

A15 



JUNIOR BUSK A ART 

5C 

3BA 

12A 

14C 

12C 

5A 

10A 

1BC 

3A 

3C 

8A 

SC 

7A 

7C 

ISA 

17C 

2A 



1 A-C 
32 A-C 

2&C 
2SA 
25C 
25A 
24C 
24A 

■~ -rn 

23A 
22C 
22A 
21 C 
21A 
23C 
2BA 
13C 
ISA 
27A 
23C 



N. C 
N. C 

B:£ 

RBINDINGEN DIENT MEN DP EIOEN MANIER TE REALISE REN, 
REKENING MOET WORDEN GEMOUDEN DAT DE VERBINDIGEN 
MODEL UK MOETEN ZIJN. BU MU WERKT MET MET EEN G4 POLICE 

EL VAN PLUS MINUS 3B CM. UITSTEKEND. 

STORINGEN OPTREDEN TUDENS LEZEN OF SCHRUVEN OP DE SCHIJF, 
^mWi^lT^Wi^^ IN FI GUUR *. 



PUNT 




UITPRINTJE. 



MET AANSLUITPRINTJE MOET ZOALS IS GENOEMD AAN DE RECHTERZUDE 
VAN DE^ CONTROLLERKAART GESTOKEN WORDEN. BU JUISTE PLAATSING IS HET ZO, 
DAT DE AANSLUITCONNECTOR VAN DE 34 POL IDE FLATKABEL NAAR DE DISK DRIVE, 
AAN DE COMPONENTEN ZUDE VAN DE CONTROLLERKAART ZIT. 



WOD'SJaMOIjAftOp'MMM 



— ■ m m m m 

deR si n r-* 



KENNER 



WANNEER MEN EEN PARALLELPRINTER WENST AAN TE SLUITEN BAN MOET EEN 
TWEEDE 34 POLICE CONNECTOR OP DIT AANSLUITPRI NTJE GE 
DE PRINT IS HIERVOOR REEDS GEHEEL VOORBEREID. 
DIT GELDT EVENZD VODR DE RS 232 AANSLUITING. 

PUNT 1.4 DE VERBINDINGS KABEL. 

DE DRIVE WORDT AAN DE CONTROLLERKAART AANGESLCTEN MET EEN 34 POLICE 
FLATKABEL, WAARAAN 3 CONNECTOREN GEPERST ZIJN. EEN ST EKE R WDRDT AAN 
DE CONTROLLERKAART GEKLIKT, DE TWEE ANDERE ZIJN VODR HET AANSLUITEN 
VAN TWEE DRIVE'S. LET BIJ AANSCHAF OP DAT EEN DISKAANSLUITKABEL 
VOLGENS HET PROTON SYSTEEM GELEVERD WORDT. DIT IS EENVOUDIG TE 
CONTROLEREN, WANT VOLGENS HET PROTON SYSTEEM IS DE MOTORSELECTDRAAD 
VODR DISK 2 VERLEGD. DE MOTORSELECT AANSLUITING AAN DE DISK IS 
PUNT IS VAN DE DISKPRINT. IN DE FLATKABEL IS ADER IS DDK MOTORSELECT 1 
EN ADER 34 DE MOTORSELECTDRAAD 2. PROTON VERLEGT NU IN DE Kf 
ADER 34 NmAR PUNT IE VAN DE TWEEDE PLUG. VRAAG BIJ LEVERING 
DM EEN AANGE PASTE KABEL. 
LET BIJ HET OPSTEKEN VAN DE ST EKE R AAN DE DISK OP, DAT DE 
CONNECTORFLUG DP DE JUISTE WIJZE WORDT GEPLAATST. DE CONNECTOR- 
NUMMERS 2 T/M 34 BEVINDEN ZICH AAN DE BOVENZIJDE VAN DE DISK-PRINT 
ZIE FIGUUR 1, TERWIJL DE DNEVEN NUMMERS 1 T/M 33 ZICH AAN DE ONDER- 
ZIJDE BEVINDEN. DE NUMMERS 3 T/M 33 ZIJN MASSA VERBINDINDEN. 

DE AANSLUITING MET DE DISK VOEDING VINDT EVENEENS MET EEN STEKER 
PLAATS. DEZE STEKER IS 4 POLIG, LET ER OP DAT DE PLUS 5 VOLT AAN 
KLEM NUMMER 4 EN DE PLUS 12 VOLT AAN KLEM NUMMER 1 WORDT AANGESLDTEN 
ZIE FIGUUR 1. DE TWEE MIDDEN AANSLU I T I NGEN> DE NUMMERS 2 EN 3, ZIJN 
RESP. MASSA 12 VOLT EN MASSA 5 VOLT. OP DE DRIVE PRINT ZIJN DEZE 
DOORVERBONDEN MET DRAADBRUG P2. 

PUNT 1.5 DRIVE SELECT IE. 

NAA3T DE 34 POLICE STEKER AANSLUITING OP DE DISK PRINT ZIJN EEN AANTAL 
SELECT IE PENNETJES GEMONTEERD. DE FABRIKANT LEVERT BIJ DE DISK EEN 
PAAR DOORVERBINDINGS PLUGJES . HET SELECTEREN VINDT ALS VDLGT PLAATS: 
BIJ GEBRUIK VAN EEN ENKELZI JDIGE DRIVE KAN MEN KIEZEN UIT DRIVE 1 OF 
UIT DRIVE 2. KI EST MEN VOOR DRIVE 1, WAT HET MEEST VOOR DE HAND LIGT- 
DAN MOET HET DOORVERBI NDI NGSPLUGJE OP PLAATS 1 GESTOKEN WORDEN, ZIE 
FIGUUR 2. LET OP DAT NU DDK DE MOTOR SELECT IE OP DRIVE 1 GERICHT MOET 
STAAN. ZIE ONDER "HET AANSLUITEN VAN DE DRIVE" 

WANNEER ER MAAR EEN DRIVE WORDT AANGESLOTEN IS HET RAADZAAM DEZE DRIVE 
ZOWEL ALS DRIVE 1 ALS DRIVE 2 TE SELECTEREN, ZIE FIGUUR 3. 
DIT HEEFT HET VOORDEEL DAT TIJDENS HET INITIALISE REN, WAT GEBEURT NA 
HET INDRUKKEN VAN DE R. S. T. BIJ KOUDE-START OF BIJ HET TERUG NAAR 
"SENIOR" NA VERBLIJF IN P. M , T. M. OF EEN GEBRUIKERS PROGRAMMA, 
SENIOR DIRECT GEREED IS. SELECTEERT MEN SLECHTS i DRIVE, DAN DUURT 
DE RESET PROCEDURE EN I GE SECONDEN. 

VERDE R BEVINDEN ZICH NOG DE SELECT I E-PENNEN 3 EN 4 OP DE PRINT. 
DEZE ZIJN VOOR HET GEBRUIK VAN MEER DAN 2 DRIVE'S. DE FDC-4 KAART 
IS HIEROP VOORZIEN, DOCH DE "SENIOR"-D. O. S. BEDIENT 2 DRIVE'S. 

SELECT IE PEN T 

LET OP DAT OP PLAATS "T" NOOIT EEN DOORVERBI ND I NG PLUGJE 
GESTOKEN WORDT. WANNEER DE DRAADBRUGGEN Pi EN P2 OP DE PRINT 
VAN DE DRIVE AANWEZIG ZIJN (ZIE FIGUUR 1) STAAT OP DE SELECT IE 
FENNEN "T" DIRECT DE + EN - 12 VOLT. EEN DOORVERBINDING BETEKENT 
KORTSLUITING VAN DE DRIVE VOEDING. 
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SELECT IE PEN M 

DE2E VERBINDING MOET OPEN GELATEN WORDEN. HIJ KAN WORDEN 
GEBRUIKT OM DE MDTDRSELECT I E TE KOPPELEN AAN DE DRIVE SELECT IE 
HETDEEN IN ONS GEVAL NIET VAN TGEPASSING IS. 

SELECT IE PEN C 

MET DEZE PEN WORDT EEN NUL NIVEAU OP PUNT 2 VAN DE AANSLUIT- 
CDNNECTDR GEZET. DIT OM DE * HEADLQAD' SAMEN MET DE DRI VESELECTIE 
TE ACTIVE REN. IN ONS GEVAL DIENT DEZE VERBINDING GEMAAKT TE WORDEN. 

PUNT 2 SENIOR MONITOR. 

DE MONITOR WORDT GELEVERD IN EPROM EN IS S K GROOT EN WORDT GELEVERD 
IN 2 STUKS EPROM 2732. OP AANVRAAG KAN DE MONITOR IN h X 271E GELEVERD. 
HET ADRES GEBIED VOOR DE MONITOR IS VAN *E000 T/M $FFFF. 
DE VECTOREN VOOR IRQ ~ RESET EN NMI ZIJN OP DE NIEUWE MONITOR GERICHT. 
MET GEVOLG DAT NA NET BEDIENEN VAN DE RESET-TOETS AUTOMAT I SCH DE "SENIOR" 
MONITOR WORDT AANGEROEPEN. DE VECTOREN VOOR IRQ EN NMI LEIDEN 
NAAR VECTOREN IN MONITOR RAM. DEZE VECTOREN IN DE MONITOR RAM 
WORDEN TIJDENS HET INITI ALISEREN DOOR "SENIOR" GELADEN. 

DOOR DE GEBRUIKER ZIJN DEZE TE VERANDEREN, VOOR SPRONGEN NAAR 
LIGEN PROGRAMMA'S. DE RAM LOCATIES ZIJN VERMELD IN DE PROTON 
DOCUMENT AT IE. 



PUNT 3 VERANDER I NGEN AAN DE JUNIOR. 



A) HET BEPALEN VAN DE MONITOR RAM. 

B) EEN GEHEUGEN GEBIED I/O SELECT. 

C) STEP GEBIED UITBREIDEN. 

A) DE MONITOR RAM. 



DE SENIOR MONITOR HEEFT I. V. M. HET WERKEN MET DE DISK EEN 
VRIJ RAM GEBIED NODIG, DAT NIET GELI JKTI JDIG BOOR EEN ANDER 
PROGRAMMA GEBRUIKT MAG WORDEN. DIT GEBIED IS VASTGE3TELD VAN 
£500 T/M *7FF. WANNEER MEN VERBLIJFT IN "SENIOR" IS DIT GEBIED DUS E 
VERBODEN GEBIED. 

IN HET MONITOR RAM GEBIED ZIJN OOK EEN GROOT AANTAL VECTOREN GELEC 
DIE IN DE PROTON DOCUMENT AT IE WORDEN VERMELD. 

DE SENIOR MONITOR STELT NA HET INDRUKKEN VAN DE TOETS "RST", EEN 
IN WAAROP DE NMI VECTOR GERICHT IS, IS DIT NAAR DE SENIOR 




IJDENS HET VERBLIJF IN "SENIOR" KAN DE TOETS "J" WORDEN INGEDRUKT 
MET GEVOLG DAT WORDT GESPRONGEN NAAR JUNIOR. "SENIOR" INITI ALISEERT 
EERST NOG DE NMI -IRQ EN DE BREAKVECTOR ZODANIG, DAT DEZE OP DE JUNIOR 
MONITOR GERICHT ZIJN. 

DE TERUGKEER NAAR SENIOR GAAT MET EEN INDIRECTE-JUMP DOOR EEN 
VASTGESTELDE VECTOR IN DE MONITOR EPROM T. W. *E0E2. DUS EC 82 E0. 
TIJDENS DEZE TERUGKEER WORDT DOOR SENIOR GECONSTATEERD, DAT DE NMI 
VECTOR NIET JUIST IS, ( N. L. GERICHT OP JUNIOR) DUS WORDT DE 
GEHELE INITIAL IS AT IE ROUTINE UITGEVOERD. DIT HEEFT ALS VOORDEEL DAT 
HET VERBODEN RAM GEBIED TIJDENS VERBLIJF IN JUNIOR WEER BRUIKBAAR IS 
VOOR BESTAANDE PROGRAMMA'S. BETER IS OVER I GENS DEZE RAM IN HET GEHEEL 




TOETSHERKENNING IN DE JUNIOR OP TE NEMEN. BIJ MIJ IS DAT TOETS 

CTRL. "S" 

WANNEER IN DE TOEKOMST DOOR PROTON ELECTRONICS AAN DE 
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MONITOR EEN VERANDERING WORDT AANGEBRACHT, VERANDERT AUTOMAT I SCH DE 
VECTOR $E0B2, ZODAT DAN NOG STEEDS DE TOETS FUNCTIE T. W. JMP <*E0S2) 
NORMAAL FUNCTIONEERT. 



B) HET I/O SELECTSIGNAAL. 

DE UITDRUKKING I/O SELECT IS NIET JUIST, HET MOET ZIJN "NIET" I/O SELECT 
MET EEN STREEP BOVEN DE I/O, MAAR MIJN PRINTER EN TERMINAL KUNNEN DIT 
NIET WEERGEVEN, LEES DUS STEEDS VOOR I/O SELECT: "NIET I/O SELECT" 



HET I/O SELECT SIGNAAL BEPAALT EEN GEHEUGENGEB I ED VAN 25B PLAATSEN, 
WAARIN ALLE I/O KAN WORDEN GEADRESSEERD. ZO WORDEN OP DE CONTROLLERKAART 
DE S522 EN DE UPD372 MET EEN 'OFFSET' VAN $80 GEDECODEERD. 

OM HET GEBIED VAN 25S PLAATSEN IN HET GEHEUGENBEREI K VAN DE JUNIOR 
TE PLAATSEN, IS HET PRETTIG ALS ER GEEN WERKELIJK GEHEUGEN VERLIES IS. 
DIT IS MOGELIJK, WANT ALS WE HET ADRES VAN ONZE "VIA" EENS 
NADER ONDERZOEKEN MERKEN WE DAT ER EEN ZOGENAAMDE ADRESSPIEGEL AANWEZIG 
IS. DE "VIA" IS GEADRESSEERD VAN $1300 TOT $1SFF, MAAR OP ADRES $1300 TOT 
$13FF KUNNEN WE DEZE "VIA" EVENEENS AANROEPEN. HET LAG DUS VOOR DE HAND 
DIT GEBIED TE ISOLEREN EN VOOR HET I/O SELECT TE GEBRUIKEN. 
DIT GAAT EENVOUDIG MET 4 POORTJES B. V. 74LS0B, ZIE FIGUUR 5. 

DE £ VERBINDINGS DRADEN DIE A AN DEZE 74LS0B MOETEN WORDEN AANGESLOTEN 
MDETEN ALLE AAN DE INTERFACEKAART VAN DE JUNIOR WORDEN VERBONDEN. 
HET AANSLUITEN VAN DE TWEE DRADEN + 5 VOLT EN MASSA KAN MEN ZELF BEPALEN. 

DE VERBINDING "AB 3" KAN MEN VINDEN OP DE CONNECTOR NAAR DE BUSKAART 
T/W PEN NUMMER "22 A". HET I/O SELECT SIGNAAL MOET AAN DE DISKDRIVE 
CONTROLLERKAART AANSLUITING NUMMER 13 WORDEN AANGESLOTEN. IK HEB DEZE 
VERBINDING EVENEENS NAAR DE JUNIORBUS GEMAAKT. IN DE VERBINDING NAAR DEZE 
BUSKAART IS DE ADER "2C" NOG VRIJ, ZODAT PEN "3" VAN HET NIEUWE I.C AAN 
PUNT 2C VAN DE INTERFACECONNECTOR IS AANGESLOTEN. LET OP! OP DE BUSKAART 
IS PUNT 2A VERWISSELD MET PUNT 2C VAN DE INTERFACEKAART, WAT BIJ 
EEN IEDER BEKEND MAG WORDEN VERONDERSTELD. 
REST NOG DE TWEE VERBINDINGEN NAAR DE VIA. OM DE SPIEGEL 
OP TE HEFFEN, MOET HET PRINTSPOOR TUSSEN HET "I.C N35" PEN 12 EN 
DE VIA "I.C 1" PEN 24 CAANSLUITPUNT CS1) WORDEN ONDERBROKEN, DIT GAAT 
O'v'ERIGENS ZEER EENVOUDIG. NA ONDERBREKING VERBINDT MEN HET SPOOR VAN 
"I.C N35" PEN 12, MET DE NIEUWE "I.C" PEN 1 EN 5, EN HET ANDERE ONDER- 
BROKEN SPOOR VAN "I.C 1" PEN 24, MET DE NIEUWE "I.C" PEN 3. EEN EN ANDER 
IS NAAR IK HOOP VOOR EEN IEDER DU I DEL UK WEERGEGEVEN IN FIGUUR 5. 

DE "VIA" OP DE INTERFACEKAART IS HIERNA UITSLUITEND NOG ONDER ADRES 
$1300 T/M $18FF TE SELECTEREN. TERWIJL HET SIGNAAL I/O SELECT ALTIJD 
LAAG IS ALS HET GEBIED $1300 T/M $13FF WORDT AANGERGEPEN. 

DE WAARHE I DST ABEL VAN DE ADRESSELECTIE IS GEGEVEN IN FIGUUR G. 

HET NIEUWE I.C HEB IK MET BEHULP VAN EEN 3TUKJE DUBBELZIJDIG PLAKBAND 
AAN DE PRINTZIJDE VAN DE INTERFACEKAART GEPLAKT. 

C) UITBREIDING STEPFUNCTIE, CTRACEMODE) . 

WANNEER MEN VAN DE MOGEL I JKHEDEN VAN DE DEBUG MONITOR GEBRUIK WENST 
TE MAKEN, IS HET NOODZAKELIJK OM OOK DE SENIOR MONITOR EN HET MONITOR 
RAM GEBIED, VOOR TRACEMODE FUNCTIES TE ISOLEREN. DIT GAAT EENVOUDIG 
MET BEHULP VAN 3 GERMANIUM DIDDEN, ZIE FIGUUR 7. DE 2 DIODEN X/E EN X/F 
ZIJN OP DE GEHEUGENKAART, AAN DE ADRESDECODER AANGESLOTEN, EN GEZAMENLI JK 
VIA DE TWEEDE VRIJE ADER T/W : "2 C" OP DE BUSKAART NAAR "2 A" OP DE 
INTERFACE KAART GEVOERD. AAN DIT PUNT IS TEVENS DE DIODE X/500 GEKOPPELD 
WAARNA HET TOTAAL AAN PEN 3 VAN HET "I.C 13" OP DE STANDAARD JUNIORPRINT 
IS AANGESLOTEN. INDIEN MEN DIT WENST KAN EEN TECHNISCH BETERE OPLOSSING 
WORDEN GEMAAKT, MET BEHULP VAN EEN PAAR I.C POORTJES. BIJ MIJ WERKT DIT 
ECHTER PRIMA. DOOR DE DIODE X/500 IS HET HELE GEBIED $400 -$7FF NIET 
MEER STAPBAAR, WAT IK NIET ALS HINDERLI JK ONDERVIND. 
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PUNT 4 DE DISK VDEDING. 

-R DIT DEEL KAN IK KORT ZIJN, PER DRIVE ZIJN DE VOEDINGSPANNINGEN 
"VOLT EN + 5 VOLT BENDD I GD. DE SPEC I F I CAT I E DOOR DE FABRIEK LUIDT: 

+ 12 V PLUSMINUS 5* 1.15 A TYPICAL C1.8S A MAX) Clgg MILLIVOLT RIPPLE) 
+ 5 V PLUSMINUS 5% 0.75 A TYPICAL < 58 MILLIVOLT RIPPLE) 

EEN IEDER KAN NAAR EI GEN MOGEL I JKHEDEN DIT OPLOSSEN. 
PUNT 5 AANPASSINGEN AAN DE MONITOR. 

TOT SLOT MIL IK NOG OPMERKEN DAT DE INITI ALISATIE ROUTINE VAN DE SENIOR 

MDNITOR DDK EEN INITI ALISATIE KAN EN WIL UITVOEREN VOOR EEN 

fiFBRUIKERS PROGRAMMA ER WORDT N. L. GETEST OF ER EPROM GEHEUGEN OP 
*cl§0 T/M *DFFF SSSeZIG IS EN DAN MIDDELS EEN INDIj ^ECTE JUMP NAAR 
FFW 7PIF TE BEPALEN VECTOR OP $DFFE-5DFFF GESPRONGEN. WAARNA DOOR DE 
" RTS" AAN HET EINDE VAN HET I NIT I ALISATIE PROGRAMMA TERUGGEKEERD 
WORDT NAAR SENIOR. MEN KAN 4 DINGEN DDENl 

A) IEDERE KEER ALS NA HET INDRUKKEN VAN DE TOETS "RST" NIET DE TEKST 
"PROTON SENIOR V4. 5" WORDT UITGEPRINT, VOOR EEN TWEEDE MAAL OP 
DE RST" TOETS DRUKKEN. DE TOTALE I M I TI AL I SAT I E VI NDT N^L. ALLEEN 
PLAATS ALS DE "NMI " VECTOR NIET MEER Jul ST IS, (.OF SENIOR GE RIGHT.) 
ZIE WAT CNDER MONITOR RAM IS OPGEMERKT. HET VERLEGGEN VAN DEZE 
VECTOR GEBEURT IN DE INITI ALISATIE, AAN HET BEGIN VAN DE ROUTINE. 
DEZE METHODE IS ECHTER ZEER PRIMITIEF. 



B) 



ZORGEN DAT ER EEN 3»FF GELEZEN WORDT OP DE GEHEUGEN t PLAATS *DFFF, 
WANNEER DIT HET GEVAL IS WORDT N. L. DE INITI ALISATIE VOOR HE 1 
GEBRUIKERS PROGRAMMA OVER GESLAGEN. 

C) OP 4DFFE - SDFFF EEN VECTOR LEGGEN DIE NA UITVOEREN VAN DE EI GEN 
INITIALISATIE ROUTINE EEN "RTS" AAN HET EINDE HEEFT ST AAN. 

D) OP DE DRIE GEHEUGEN PLAATSEN SE28B - $E23D, .WAAR STAAT 20 CF EA 
3 MAAL *EA TE PROGRAMMEREN, WAARNA DE GEBUIKERS INITIALISATIE 



NIET MEER 

DE PROTON MONITOR ("SENIOR") IS ZODANIG AANGEPAST DAT OVEREEN- 
KOMSTIG DE ROUTINE "INITPR" UIT "P. M", EEN INITIALISATIE WORDT 
GlTGEVOERD, DAT NA HET INDRUKKEN VAN DE TOETS "RUB-OUT" DE BAUDRATE 
WORDT VASTGESTELD. DEZE MOGEL I JKHEID IS ER EXPRES I NGELATEN VOOR 

fSSK^^^VJS^SM mUSWkct. EN DEZE VAST LA AT 
LEGGEN DOOR EEN EI GEN ROUTINE, VERWIJS IK NAAR DE GEHEUGEN PLAATSEN 
*E0S7 -*E0G3 WAAR STAAT : 20 33 E0 , PROGRAMMER HIE R JUMP C4C) NAAR 



DE EI GEN ROUTINE EN ' KEER ' MET EEN RTS AAN HET EINDE TERUG. ' DE ' 
"RUB-OUT" ROUTINE WORDT NIET MEER UITGEVOERD. 

BIJ AANPASSINGEN DIENT WEL OPGEMERKT, DAT BIJ EVENTUELE WIJZIGING 
AAN DE MONITOR DOOR PROTON, VOORNOEMDE ADRESSEN WEER MOETEN WORDEN 
OPGEZOCHT, EN AANGEPAST. ZELF HEB IK EEN ROUTINE GEMAAKT DIE EE RST 
VERGELI JKT OF DE WAARDE "CNTL" T/M "CNTHH" OVEREENKOMEN MET DIE VAN 
DE BAUDRATE VAN MI JN tIrMINAL, ZD NEE, DAN WORDT DE TEST ROUTINE 



UITGEVOERD EN ZO JA, OVER GESLAGE 



12 
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PUNT £ BESCHIKBARE SOFTWARE. 

ALS LAATSTE WIL IK NOG OPMERKEN DAT PROTON ELECTRONICS 
PROGRAMMA' S OP D I SKETTESCH IJF HEEFT DIE DOOR MI J ZIJN DETEST 

DIT ZIJN: EDITE5 TEKST-EDITOR 

ASME5 £5(32 ASSEMBLER VLG MOS-TECHNOLDGIE STANDAARD 

„ _ CZOALS DE AIM-E5 ASSEMBLER) 

FORTH FORTH COMPILER-INTERPRETER SYSTEEM 

LJTIL COUNT, SPLIT & MERGE UTILITY'S 

MAP « TOONT DE CODE BEZETTING VAN EEN PROGRf 

*CCMP VERGELIJKT EEN CODEFILE < VAN SCHIJF) 

HET GEHEUGEN (OFFSET MOGELIJK) 
FORMS EENVOUDIGE TEKT-FDRMATTER VOOR DOCUMENT AT IE 

OLOAD OFFSET LOADER, LAAD CODE MET EEN OFFSET. 

SIS^ E pl8M^ M g^ D SDgkl E gggiliP.BeiiiS? LER KUNNEN MET HET GR00TSTE 
fflMVyHmmjft&jmm Bp^lo^Hy 1 ^! mJBSFb 

INDIEN MEN DIT WENST ZELFS DE OBJECT CODE DIRECT OP DEZELFDE 
SCHIJF LATEN ZETTEN. 

DE FORTH COMPILER/ INTERPRETER WERKT MET DE SCHIJF ALS VIRTUEEL 
MASS A GEHEUGEN. ZIE OOK ARTIKELEN IN 'BYTE' EN BOEKEN ALS 
'STARTING FORTH'. EEN INTERESSANTE TAAL VOOR DE DGORDOUWER. 
VERDE R HEB IK DE ROUTINE "MAP" DIE DIRECT DE ADRESBEN VAN CODE-FILE' c 
VAN DE FLOPPY OP DE TERMINAL UITPRINT. DOOR PROTON IS EEN BASIC 
INTERPRETER IN HET VDORUIZICHT GESTELD DIE EVENEENS DIRECT MET 
DISK WERKT. DEZE ZAL VANAF EIND DECEMBER BESCHIKBAAR ZIJN. 

CONCLUSIE 



MET HET "SENIOR" D. 0. S IS EEN ELEGANTE KOPPELING VAN FLOPPY-DISK AA 
DE JUNIOR VERWEZENLIJKT. HIERVOOR WORDT NIET DE JUNIOR OMGEBOUWD TOT 
EEN ANDERE COMPUTER, MAAR UITGEBREID TOT EEN GROTERE COMPUTER. 
HET "SENIOR" D. 0. S. BIEDT VRIJWEL ALLE MOGELI JKHEDEN ALB DE MONITOR 
VAN DE JUNIOR EN ZELFS NOG MEER. 

DE DMBOUW IS EENVOUDIG TERWIJL ALLE BESTAANDE PROGRAMMA' S NOG STEEDS 
VERWERKT KUNNEN WORDEN. DIT LAATSTE IS VOOR DE VEREENIGING EN DE LEDEN 
VAN BELANG IN VERB AND MET UITWISSELBAARHEID VAN PROGRAMMA' 3^ 

DE GEBRUIKERS VAN DE KIM-1 EN DE AIM-E5 KUNNEN OOK VAN DIT ' SENIOR' 
D-O.S GEBRUIK MAKEN. INMIDDELS IB OOK DE EERSTE KIM VOORZIEN VAN DISK. 
BIJ BESTELLING DIENT DAAROM VERMELD TE WORDEN OF HET DM EEN JUNIOR, 
^,9E„&K;:§3 T S9 ftT - PERSIES VOOR ANDERE £532 SYSTEMEN ZIJN BIJ PROTON 
j.im vOOnBtnc iDx NG, 

HET FIJNE VAN DEZE 'SENIOR' AANPAK IS DAT OP DEZE MANIER FEN 
EENVOUDIGE MANIER VAN PROGRAMMA UITWISSELINO MOGELI JK WORDT TUSSEN 
SYSTEMEN DIE IN OORSPRDNO AFWIJKEND ZIJN. 

ZOUDEN WE MET 'SENIOR' DAN EINDELI JK EEN STANDAARD KRIJGEN ???? 

. END 
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DISK DRIVE PRINT 



Fig 1 
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Fig 2 
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Fig 3 



AB9 



K6=0 



tuirtisCiebied 


A1b 




A13 


A 12 


A 11 


A10 


A 9 


A 8 




1b00 — IttF'F 




0 


0 




1 


0 


0 


0 


VIA 

CSI = 1 


1900 -19 Ff 




0 


2) 


0 


1 


0 


0 


1 


Vo sel = 0 



22A 



AB8 



'Printspoor tussen N3S/V<! m fcMZA onderbreken 



r^>7t>-S>: 



IC) 

6522 

VIA 



IN I E RFASE 
CON NEC TOR 




% sel 2C 2A 
y( 0- 



i£ = 74LS00 



JUNIOR BU6KAAR1 PRO fOf 
IN ft RTA '. E 



+ 5V 



1 



K1 



sync 



Ve 



500 



K 10 



K3 
K4 



U1K 



2A 2C 

_0 ^ 



J UNION JUNIOR BUSKAART 

INTERBASE 



Fifr 7 



Punt E 
, Adres - 
decoder 



DtK 

J— +5 V 



Hunt F 

A ores decoder 
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mm 

HftftL UIT EEN RIJ TEGELIJK EEN WILLKEURIG ftRNTftL LUCIFERS 
WIE DE LftftTSTE PftKT HEEFT VERLDREN 

HANS CHRISTEN, POSTBUS 5BEE2, 3007 JD RDTTERDRM 

1 0 RESTORE : FORX=0TO6 : READW ( X ) : V ( X ) =X : NEXT : I FB=1 THENV ( 6 ) = 1 
20 GOSUB9 0 : I FB= 1 THENPR I NT " I S MIJN EERSTE ZET":B=0 
30 PR I NT "U BENT AAN DE BEURT" : INPUT"RIJ" ; X 

40 I NPUT " HOEVEEL OVER " ; A : I F A >=V ( X ) THENPR I NT " ONGELD I GE Z ET " : GOTO30 
50 V(X)=A:GOSUB90:PRINT»"IK DENK NA" : PRINT : ONGGOTO160 t 180 
60 F0RR=1T06:Z=V(R) 

70 IFV(R) =0THENV ( R ) =Z : NEXT : V < F ) =V ( F ) - 1 : GOTO20 
80 V ( R ) = V ( R ) - 1 : GOSUB 140: 0NHG0T07 0 * 2 0 

90 G=l :D=0:PRINTCHR$( 12) ; "RIJ": FORX= 1 T06 : PR I NT : C=V ( X ) 

100 PR I NTX 5 ")"»;: I FC=0THEN 1 30 

1 1 0 D=D+ 1 : I FC> 1 THENG=G+ 1 : F=X 

120 I=X:FORY=lTOC:PRINT"l ";:NEXT 

130 NEXT: PR I NT: PR I NT: RETURN 

140 FORX= 1 T06 : Q=Q+W ( V ( X ) ) : NEXT : H=2 : FORK= 1 T03 : 1 FQ< >2* I NT ( Q/2 ) THENH= 1 
150 Q=INT(Q/10) : NEXT '.RETURN 
160 V ( I ) =0 

1 7 0 ONDGOTO20 0 1 1 90 : GOTO20 

180 V(F)=0:GOSUB140:ONHGOTO170:V(F>=1 : IFD>1THEN20 
190 GOSUB90:PRINT"U HEBT VERLOREN" : END 

200 V(I) = l:PRINT"IK HEB VERLOREN" : I NPUT "MAG IK EEN REVANCHE" 5 A* 
210 I F A*= " J A " THENB= 1 : GOTO 1 0 : DAT A0 1 1 > 1 0 » 1 1 » 1 0 0 1 1 0 1 * 1 1 0 

3K 

HEXALSCIMAAI, MAAR DKCIMAAL 0M2ETTEK 



BIT 8 


BIT 7 


BIT 6 


BIT 5 




BIT 4 




BIT 3 


BIT 2 


3IT 1 


H 


DECIMAAL 


H 


DECIMAAL 


H 


DECIMAAL 


H 


DECIMAAL 


H 


DECIMAAL 




DECIMAAL 


H 


DECIMAAL 




DECIMAAL 


0 


0 


0 


0 


0 0 


0 


0 


0 


0 


0 


0 


0 


0 


0 


G 


1 


268435456 




16777216 


1 


1048576 


1 


65536 


1 


4096 


1 


256 


1 


16 


t 


9 


2 


516870912 


; 


33554432 


2 


2097152 


2 


131072 


2 


8192 


2 


512 


? 


32 


2 


2 


3 


805306368 




50331648 


3 


3U5728 


3 


196608 


3 


12288 


3 


768 


3 


48 


3 


3 


4 


1073741824 


4 


67108864 


4 


4194304 


4 


262144 


4 


1 6384 


4 


1024 


4 


64 


4 


4 


5 


1342177280 


5 


83886O8O 


5 


5242880 




327680 


5 


20480 


5 


1280 


5 


80 


5 


5 


6 


1610612736 


6 


100663296 


6 


6291456 


6 


393216 


6 


24576 


6 


1536 


6 


96 


6 


6 


7 


1879048192 


7 


1 17440512 


7 


7340032 


7 


458752 


7 


28672 


7 


1792 


7 


112 


7 


7 


8 


2147483648 


8 


134217728 


3 


83.88608 


8 


524288 


8 


32768 


8 


2048 


8 


128 


8 


8 


9 


2415919104 




150994944 


9 


9437184 


9 


589824 


9 


36864 


9 


2304 


9 


144 


9 


9 


A 


2684354560 


A 


167772160 


A 


10485760 


A 


655360 


A 


40960 


A 


2560 


A 


160 


A 


10 


B 


295279001 6 


B 


184549376 


B 


11534336 


B 


720896 


B 


45056 


B 


2816 


B 


176 


B 


11 


C 


3221225472 


C 


201326592 


c 


12582912 


C 


7864 32 


C 


49152 


B 


3072 


C 


192 


jC 


12 


I) 


3489660928 


D 


218103808 


D 


13631488 


D 


851968 


D 


53248 


D 


3328 


D 


208 


hp 


H 


E 


3758096384 


E 


234881024 


E 


14 680064 


E 


917504 


E 


57344 


E 


3584 


E 


224 


E 


14 


F 


4026531840 


F 


251658240 


f 


15728640 


- 


983040 


F 


61440 


F 


3840 


F 


240 


f 
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VOORBEELD: 1AF4 hex = 1 van bit 4 = 4096 
= A van bit 3 = 2560 
= F van bit 2 =-- 240 
sb 4 van bit 1 = 4 



= 6900 
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OKI THE JUNIOR PROMOTING CY CW&J) PftGE 01 



8010: ***** PRINTEN OP OKI MICROLINE 80 PRINTER Mm 

0020 : ***** een n i euwe pr i nter rout i ne ***** 

0030: ***** vooi de JUNIOR-comPUter ***** 

0050: 

0060: W. L. van Pelt 

0070: 

00S0: Prob l eemste I I ir.g: 

0090: ================ 

0100: 

0110: - Het opheffen van het euvel dat de subroutine PRCHft 
0120: op ad res $1334 de inhoud van de aecu n i et onge- 

0130: woe i d laat. 

0140: - Het opheffen van een ander euvei: printen op beeld- 
0150: schema l evert 9 een hardcopy. De RB 232- i nter face 

01E0: wordt reeds benut voor de term i na I - 

0170: 

0180: Op I oss ins: 

0190: MMmmummmm 

0200 : 

0210: - Het saven van de aecu voor de inhoud ervan verio- 
0220: ren saat door PRCHft. 

0230: - Het I at en vervalien van de PRCHft- rout i ne en het 
0240: aanbrensen van een n i euwe pr i nter rout i ne elders i n 

0250: het geheusen* door gebruik te ma ken zowet van een 

02E0: reeds voor de OKI 7 para I lei a an de VI ft 6522 sehans- 

0270: en 7 gepub l i ceerde hardcopy-routine Czie De 6502 - 

0280: Kenner nr. 19, p. 30)7 en een dee l van PRCHft. 

0290: - Het aanbrensen van een sehakelaar we ike aan PB3 
0300: van de Via aan de ene kant en aan aarde aan de an- 

0310: dere kant verklaart of er a I I een op beeldscherm 

0320: dan we I tevens op OKI seprint moet word en. 

0330 : 

0340: Nadat de routine was setest en in sebruik sen omen op 

0350: miJn apparatuur en in de PM - monitor 7 bieek het ook 

03E0: nuttis de printer n i et all een hardware maar ook nos 

0370: sof twaremat i g aan te kunnen sehakelen. Roger Lanse- 

0380: veld had ai iets derseliJks i nse i everdi en ik heb * m 

0390: dan ook sevraasd dat in de n i euwe PRCHft- rout i ne te 

0400: i ntegreren. 
0410: 

0420: De Printer kan dus nu wo r den aansezet door: 

0430: 1. het schakel aart Je aan PB3 

0440: 2. sof twaremat i g door een keer de subroutine SUBOKI 

0450: aan te roepen. 

04G0: 

0470: De printer kan nu dus word en afsezet door: 

0480: 1. het sc hake I aart J e aan PB3 

0490: 2. sof twaremat i g door nog eens de subroutine SUBOKI 

0500: aan te roepen. 

0510: 

0520 : B|j dragen : 
0540: 

0550: John van Sprang, Keen van N i eu wen hove en Roger Lanse- 

05B0: veld. 

0570: 

0580: Patch: 

0590: ===== 
0600: 

0B10: ftdres *1334 wordt : 4C 34 IB 
fa com - 
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OKI 



THE JUNIOR PROMOTING CY CW&J) 



PAGE 02 



0E50: 


1E34 








OKI 


ORG 


41E34 




0E60: 


















0G70: 
0BS0: 






53 


1A 


STPBIT 




41A53 


NUMBER OF STOPBITS 






E0 


1A 


TEMPA 




41AE0 




0E30: 






E2 


1A 


CHA 


* 


41AE2 
41A7C 


CHARACTER BUFFER 


0700: 
0710: 






7C 


1A 


BRKT 


* 


BREAK TEST VECTOR 






80 


1A 


PAD 


* 


41A80 


DATA REGISTER OF PORT A 


0720 : 






32 


1A 


PBD 




41A82 


DATA REGISTER OF PORT B 


0730: 


















0740: 
0750: 






12 


13 


DELBIT 


* 


41312 


FETCH 1 BIT TIME 
















07E0: 






00 


13 


VPBD 


if: 


$1800 


DATA REGISTER OF VIA PORT B 


0770: 
0780: 






01 


IS 


VPAD 


* 


41801 


DATA REGISTER OF VIA PORT A 






02 


IS 


VDDRB 


* 


41802 


DATA DIR. REG. OF VIA PORT B 


0730: 
0800: 
0810: 






03 


IS 


VDDRA 


* 


41803 


DATA DIR. REG. OF VIA PORT A 


































0820: 


















0830: 


















0840: 


















0850: 
08E0: 


















: 1E34 


48 






HARDCO 


PHA 






0870: 
0880: 


: 1E35 
: 1E37 
: 1E3A 
: 1E3D 


A3 


13 






LDAIM 


413 


PB0, PB1 AND PB4 OF DATA DIR. REG 


8D 


02 


IS 




ST A 


VDDRB 


PORT B = OUTPUT 


0830: 


AD 


00 


IS 




LDA 


VPBD 




0300: 


48 








PHA 




LOOK AT PB3 


0310: 


: 1E3E 


23 


08 






ANDIM 


408 


SWITCH ON PRINTING? 


0320: 
0330: 


: 1E40 


F0 


07 






BEQ 


PRSCR1 




: 1E42 


ES 








PLA 




LOOK AT PB1 


0340: 
0350: 


: 1E43 


23 


02 
03 






ANDIM 


402 


PB1 HIGH? 


: 1E45 


D0 






BNE 


PRSCR2 




03E0: 
0370: 


: 1E47 


F0 


0E 






BED 


END 




: 1E43 


E8 






PRBCR1 
PRSCR2 


PLA 




SWITCH ON PRINTING 


0380: 


: 1E4A 


E8 
48 






PLA 




PB1 IB HIGH 


0330: 
1000: 


: 1E4B 








PHA 




OUTPUT TO SCREEN AND TO PRINTER 


: 1E4C 


20 


53 


IE 




JBR 


PRINT 


1010: 


: 1E4F 


E8 






END 


PLA 




1020 


: 1E50 


4C 
48 


32 


IE 




JMP 


NPRCHA 




1030: 


: 1E53 
: 1E54 
: 1E5E 
: 1E53 
: 1E5C 
: 1E5E 






PRINT 


PHA 




CONTENTS OF ACCU * STACK 
DATA DIR. REG OF VIA PORT A m 


1040: 
1050: 


A3 


FF 
03 






LDAIM 


4FF 


8D 
AD 


18 




STA 


VDDRA 


OUTPUT 


10E0' 
1070' 
1080: 


00 


18 




LDA 


VPBD 


SET STROBE HIGH 


03 


01 






DRAIM 


401 




3D 


00 


18 




STA 


VPBD 




1030: 


: 1EE1 


E8 








PLA 




REPLACE CONTENTS OF ACCU 


1100 


: 1EE2 


3D 


01 


18 




BTA 


VPAD 




1110: 
1120: 


: 1EE5 


AD 


00 


18 




LDA 


VPBD 


SET SELECT HIGH 


: 1EE8 


03 
SD 


10 






ORAIM 


410 




1130: 


: 1EEA 


00 


IS 




STA 


VPBD 




1140: 
1150 


: 1EED 


AD 


00 


IS 


WAIT 


LDA 


VPBD 


WRIT UNTIL BUSY IS LOW 


: 1E70 


23 


04 






ANDIM 


404 


11E0 


: 1E72 
: 1E74 
: 1E77 
: 1E73 


D0 


F3 






BNE 


WAIT 




1170: 


AD 


00 


IS 




LDA 


VPBD 


SET STROBE LOW 


1180: 


FE 






ANDIM 


4FE 




1130: 
1200 


3D 


00 


13 




STA 


VPBD 




: 1E7C 


03 


01 






ORAIM 


401 


SET STROBE HIGH 

OLD CONTENTS OF ACCU BACK AGAIN 


1210 


: 1E7E 
: 1E81 


3D 


00 


IS 




STA 


VPBD 


1220: 


E0 








RTS 




1230: 


: 1ES2 


8E 


E0 


1A 


NPRCHA 


STX 


TEMPA 


SAVE INDEX X 


1240 
1250 


: 1ES5 


3D 


E2 


1A 




STA 


CHA 




: 1ES8 


AD 


32 


1A 




LDA 


PBD 




12E0" 
1270' 


: 1E8B 


23 


FE 








4FE 


TRANSMIT STARTBIT 


: 1E8D 


3D 


82 


1A 




gNDIM 


PBD 




1280: 1E30 


20 


12 


13 




JSR 


DELBIT 


DELAY OF STARTBIT 
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>KI 



THE JUNIOR PROMOTING CY CW&J) 



230: 


1E93 
1E35 


A2 


07 




PRft 


hcD IM 


$07 


rfi fTi ■ 


4E 


E2 


ift 


fern 




.310: 1E3S 


r—\ f-fL 

90 


O0 

S2 




BCC 


PRC 


.320: 


1E3A 


ftD 


1ft 




LDft 


PBD 


330: 
.340: 
.350: 


1E9D 


09 
SD 


01 






ORAIM 


*0i 


1E3F 


32 


1ft 




STfi 


PBD 


1EA2 


20 


12 


13 


PRB 


JSR 


DELBIT 


3E0: 
.370: 
.380: 


1EA5 


Cft 








DEX 


PRft 


1EAE 


D0 


ED 






BNE 


• 16AS 


ftE 


59 


ift 




LDX 


STPBIT 


.390: 


1EAB 


ftD 


32 


1ft 


PRD 


LDft 


PBD 


.400: 


1EAE 


09 


01 

82 






DRftlM 


$01 


.410: 
.420: 
.430: 


: 1EB0 
: 1EB3 


SD 
20 


ift 




STft 


PBD 


12 


13 




JSR 


r\r~i nTT 

DELBIT 


: 1EBE 


Cft 








DEX 




.440: 
.450" 


: 1EB7 


D0 


F2 
30 






BNE 


PRD 


: 1EB9 


2C 


1ft 




BIT 


PftD 


.460' 
.470: 


: 1EBC 


10 


04 






BPL 


BRKTST 


: 1EBE 


ftE 


B0 


1ft 




LDX 


TEMPft 


.480: 


: 1EC1 
: 1EC2 
: 1EC5 
: 1EC7 


B0 








RTS 




.430: 
.500: 


2C 


30 


1ft 


BRKTST 


BIT 


PftD 


10 


FB 






r,ni 

BPL 


BRKTST 


.510: 


err* 
bL 


*7P 

/ L 


lH 




TM T 


nni/T 

bhr\ 1 


l520: 


: lECft 


AD 


32 


1ft 


PRC 


LDA 


PBD 


.530. 


: 1ECD 


23 


FE 

32 






AND IN 


*FE 


1540' 


: 1ECF 
: 1ED2 
: 1ED5 
: 1ED8 


SD 


1ft 




?S8 


m 


.550 


4C 


ft2 


IE 


SUBOKI 






L5E0 
L570 
L580 
L530 


AD 


00 


IS 


LDA 


VPBD 


48 
23 








PHA 




: 1ED3 


02 






ANDIM 


$02 


: 1BDB 


D0 


07 






BNE 


HIGH 


LE00 


: 1EDD 


E8 








PLA 




lEIQ 
LE20 


: 1EDE 


03 








ORAIM 


$02 


: 1EE0 


3D 


00 


IS 




BTA 


VPBD 


LE30 


: 1EE3 


E0 








RTS 




LE40 


: 1EE4 
: 1EE5 


E8 
23 






HIGH 


PLA 




LE50 


FD 






ANDIM 


*FD 


LEE0 


: 1EE7 


3D 


00 


IS 




STA 


VPBD 


LE70 


: 1EEA 


E0 








RTS 





PAGE 03 

SET UP FOR 7 DATA BITS 
BRANCH 0 !? Pg? RftCTER 
OUTPUT A LOG. . ' 1' 

DELAY 1 BIT TIME 
SET UP FOR NEXT BIT 
ALL BITS TRANSMITTED ? 
X:=AMOUNT OF STOP BITS +1 



TEST FOR BREAK 

RESTORE INDEX X 

KEY RELEASED ? 

JUMP TO AN USER SELECTABLE 

OUTPUT A LOG. '0' 

LOAD PORT B 

LOOK AT PB1 
IS IT HIGH? 
NA> MAKE IT HIGH 

STORE IT BACK 

YES, MAKE IT LOW 

STORE IT BACK 



SYMBOL TABLE 4000 40D0 011082 PAGE 01 



BRKT 


1A7C 


BRKTST 


1EC2 
1E34 


CHA 


1AE2 


DELBIT 


1312 
1E82 


END 


1E4F 
1634 


HARDCO 


HIGH 


1EE4 


NPRCHA 


OKI 


PAD 


1A80 


PBD 


1A82 


PRA 


1E35 


PRB 


1EA2 


PRC 


1ECA 


PRD 


1EAB 
1A53 


PRINT 


1E53 


PRSCRQ 


1643 


PRSCRR 


1E4A 
1803 


STPBIT 


SUBOKI 


1ED5 


TEMPA 


1A60 
1800 


VDDRA 


VDDRB 


1302 


VPAD 


1801 


VPBD 


WAIT 


1EED 







SYMBOL TABLE 4000 40D0 011082 PAGE 01 



DELBIT 


1312 


HARDCO 


1E34 


OKI 


1E34 
1E53 


PRSCRQ 


1E43 


PRSCRR 


1E4A 
1E82 


END 


1E4F 
1E35 


PRINT 


WAIT 


1EED 


NPRCHA 


PRA 


PRB 


1EA2 
1ED5 


PRD 


1EAB 


BRKTST 


1EC2 


PRC 


1ECA 


SUBOKI 


HIGH 


1EE4 
iS03 


VPBD 


1300 
1A53 


VPAD 


1801 


VDDRB 


1302 


VDDRA 


STPBIT 


TEMPA 


1AE0 


CHA 


1AE2 


BRKT 


1A7C 


PAD 


1AS0 


PBD 


1AS2 
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■M +: :+: sf : * *: * * * sf: if: * if: * *: if: if: if: if: if: if: if: if: sf : if: if: * if: if: if: * if: if: * * * * if ! *: if = * 

* 7 SEGMENTS I/D * 

* ftUTEUR: ft. W. DEN HftRTDG * 

* TIENVOET 2 * 

* DUD BEYERLftND * 

if: M if: if: if: if: *: if: if: if: if: if: if: if: if: if: if: if: *: if: >f : if : if: if: >f : + if: if: if: if: if: * if: if: * * if: * * * * 

PRDGRftMMft BESCHRIJVING: 



02(30 



Dit pros r ArrnYia is bedoe \ d als vervang i n9 van een 

t e i" m i Ti a i - Het i S bfc , du9 i d VOu f in&'nB&Ti die nu9 Seen 

t e r fri i n a i he b b#fi en toch Bas \ c * Micro ftde 7 of Forth 

wi lien draaien op hun KIM- Ook a I s de KIM 11 op locatie' 

itioet word en in9ezet kan dit pt 09 ram ma als nood-term i na I 

wor den 9 e b r u i k t ow ter Piekke eventueei nog de 

l aa t s t e f o u t j es t e c o r r i s e r en - 

Het pr 09 rafrima werkt m&t het KIM keyboard en display. 
Dp het display kofrien de karakters te staan. In de 
tabei staan de ftSCII codes en hun voorste l I i ns op 
het display. Het ft- segment is de LBB* het G-sesment i s 
het op een na MSB- Het MSB is B of 1. Niet a I le ftSCII's 
z i J Ti 9ecodeerd» indien sewenst kunt u de tabei 
zelf verder u i tbrei den- Er staan steeds zes karakters 
in het display. De n i euwe wo r den rechts 
De u i 1 1 eessnel hei d is met de \NAArd& op i 
st e I I en 

Het Pi e 5 e n van input sebeurt door de RSCII code in 
hex in te t i k ken en af te sluiten met de + toets 
(per karakter). Ik verzeker u dat u na en i 99 
oef en i ns alle hood l et ter s en ca. 10 speciale tekens en 
u i te r aa r d de cijfers z on der aa r ze I en zult wet en te 
vinden op uw KIM keyboard (LIST is 4C+43+53+54-s~0D-i", 



i n 9 es c ho v en . 
3212 in te 



twee 



m a a n d e n n i e t m e e r 
i nged r ukt 
als b i J de 
het rechtse 

passen 



weet i k nog terwi J I i k het 
heb gebruikt). Zo I an 9 de * toets niet is 
gel den de laatste twee \ ntoets i ngern net 
KIM. Het n i eu we karakter staat steeds i n 
d i sp l ay . 

Basic of Micro ftde ziJn eenvoudig aan te 
door $0200 als karakter output routine, en $021C als 
karakter input routine op te 9 even - ^ 
De input en output routine saven be i de X en Y. ftlss 
het hoof d Prog ramma zelf ook het i nputkarakter 
output dan $Eft (NOP) setter, op ad res $0220 t/m $022S. 

KIMID ORG $0200 

DEFINITIES: 



30 00 
ES 00 
E7 00 
E5 00 
E2 00 
E4 00 
El 00 



e: 

40 



00 
IF 



ER IF 



SPEED 

DISP 

BUFFER 

Xfi 

XB 

Yft 

YB 



Him t r\fc 

KEY 



$0030 
$00E8 
DISP 
S00E5 
*00E2 
*00E4 
*00E1 

$00E3 INPUT KARAKTER SAVEN 

*1F40 

*1FEA 



KARAKTER PERI DDE 
ES-ED WDRDEN GETDOND 
-01 INSCHUIF BUFFER 
X SAVEN 

Y SAVEN 



0200 SB E5 

0202 AA 

0203 BD 80 02 



OUTPUT ROUTINE: 
OUTPUT STXZ XA 

tAx 

LDAAX ASCTBL 



X SAVEN 
ZET 7SEGM. 



EQUIVALENT IN BUFFER 
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KIM 10 



PftGE 02 



0E50: 


02'BE 
0208 


85 


E7 




0&B0: 
0E70: 


ft2 
B5 


BE 




020ft 


EE 




0E80: 
0E90: 


020C 


35 


E7 




02BE 


Cft 






0700: 
0710: 
0720: 
0730: 


028F 


D0 


F9 
30 
5D 




0211 


R2 
20 




0213 


B2 


02 IE 
02i7 


Cft 






0740: 


D0 


Fft 
E5 




0750: 


|213 


fi& 




07B0: 
0770: 




E0 












0730: 










0730: 










0800: 


02 1C 


So 
84 


E5 




0810: 


02 IE 


E4 




0820: 


022(3 


ft2 


0E 




0830 : 


0222 


B5 
35 
Cft 


E& 




0840: 


0224 


E7 




rfii-Msrrft • 
UJOvJUJ • 


0226 








0227 


D0 


F3 




0870: 


0223 


20 


5D 




rht-\r\rh i 
tfJOOWJ • 


: 022C 


20 


40 


IF 


0890: 


022F 


DB 


rn 
r o 

5D 
40 




0800' 


! 0231 
i 0234 


20 
20 


82 


0310: 
0320 : 


IF 


! 0237 


F0 


F8 




0330 : 


: 0233 


20 


Eft 
12 


IF 


0340' 
0350 


: 023C 


C3 




: 023E 


r-ra 
r \U 


IE 




03E0 


: 0240 
: 0241 


0ft 






0370: 


0ft 






0380 


! 0242 


0ft 






0330 
1000 


: 0243 


0ft 

ft2 
2ft 






• r» /. 


04 




1010 
1 8^G 
1030 


: 024E 






: 0247 




1 T 

CIO 




: 0243 


Cft 






1040 
1050 
1B&0 
1070 


: 024ft 


D0 


Fft 
E3 




: 024C 


ftB 
BD 




: 024E 


80 


02 


: 0251 
: 0253 


r\er 
uJ 


E8 




1080 


/. o 
M-L, 


29 


02 


1030 
1 100 


: 025E 


ft5 
ftE 


1 T 

to 




: 025S 


E5 




1110 


: 025ft 


ft4 


E4 




1120 


: 025C 


E0 






1 130 








1 140 
1150 


















1 1B0 


: 025D 
: 025F 


SB 


E2 




1170 
1180 


r\ 1. 
o4 


El 




: 0261 


ftB 


0E 




1130 


: 02E3 


20 


nr\ 
OO 


IE 


1200 


: 02BE 


ft3 


7F 




1210 


: 02ES 
: 02&B 


8D 
fi2 
84 


41 


17 


1220 


09 




1230 


: 02ED 
: 02EF 


FC 




1240 


B3 
20 


E7 


BB 


1250 


: 0272 


4E 


IF 


12E0 


: 0275 


88 






1270 


: 027E 


D0 


40 




1280: 0278 


8C 


17 



B 



INPUT 
I NPUT 



D 
G 



H 



STftZ 

LBXIM 

LDftZX 

STflZX 

DEX 

BNE 

LDXIM 

JBR 

DEX 



RTB 



STXZ 

BTYZ 

LBXIM 

LDftZX 

STRZX 

DEX 

BNE 

JBR 

to n 
j orx 

BNE 

JBR 

JBR 

BED 

JBR 

CNPIM 

BEQ 

fiBLft 

fiBLft 

ftBLft 

ftBLft 

t P.V TW 

L-U A i n 

RDLfi 

RDLZ 

DEX 

BNE 

LDXZ 

LDftftX 

STftZ 

JMP 

LDftZ 

LDXZ 

LDYZ 

RTB 



BUFFER 
*0E 
DIBP 
DIBP 



SPEED 
CftRLO 



BCHUIF 

-02 

-01 



ftLLE KftRftKTERB OP 



LEES SPEED MftftL HET 



SUBROUTINES: 



CftRLO 



O I A L 

BTYZ 
LDYIM 

tp n 

j on 

LDfilM 

PTA 

0 i H 

1 r\ v T M 

L.u a i ri 

BTYZ 

LDfiftY 

JBR 

DEY 

BNE 

STY 



B 

Xft 



Xft 

Yft 

*0E 

DIBP 

DISP 

C 

CftRLO 

ftNYKEY 

D 

CftRLO 
ftf 

U 

KEY 
*12 
Z 



*04 

CHftR 
H 

CHftR 
ftSCTBL 
DISP 
D 

CHftR 

Xft 

Yft 



XB 

YB 

$0& 

*1ESS 

5>7F 

*1741 

*B9 

$FC 

40BE7 

*iF4E 

P 

$1740 



SAVE X EN Y 

BCHUIF KftRftKTERS OP 

-02 

-01 



WfiCHT TOT VDRIGE TOETS 
IS LDSGELftTEN 

WftCHT OP NIEUWE TOETS 



HftftL WfiftRDE DP 
IS HET DE + TDETS 

BCHUIF IN M.S. NIBBLE 



BCHUIF TOETS IN DUDE 
ftBCII WftftRDE VAN KftRftKTER 



ZET NIEUWE KftRftKTER 
IN DISPLftY 

VERDER MET ftSCII CODE SftMENSTELLEN 
HET UITEINDELI JKE KftRftKTER 
HftftL X EN Y OP 



DEZE ROUTINE IB HET WERK VftN 
C. T. ft. TOTTE 
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027B RE E2 
027D A4 El 
027F GO 



LUA L AO 

LDYZ YB 
RTB 

DE ASCI I -7 SEGMENTS CDNVERSIE TABEL 



1 T ,50 

X • w WJ 

1360 
1370 


* WJ LJ WJ 


00 

WJ WJ 


nob 1 DL -~ 


417} 171 

*>«J WJ 
*> WJ WJ 


NULL 








130 


SB 


rni j 

oun 






: 0232 


00 




400 

WJ WJ 


W I A 






13S0 


: 0233 


00 


— 


^ WJ WJ 


ETX 






1 330 


■ ps <-i r\ i. 


00 
WJ WJ 





41710 

4* WJ WJ 


ELD 1 






1400 


: 0~'S5 


00 
VcJ WJ 




?> WJ VJ 








1410 
1420 
1 430 

X *+•«.• WJ 


: 02SE 


WJ WJ 




4J7U7i 

=P WJ WJ 


HLf\ 
C-ri i 
DLLL 






: 0287 


00 




?>KJwJ 






• n\--inn 

• kJxLOO 


WJ WJ 


_ , 


*> WJ WJ 


BS 






1 /i Zl[7s 

J. t+t+WJ 
J. *+vJWJ 


■ \D X- lj 3 

■ icj jL. o r*i 


WJ WJ 


— . 


3>WJwJ 


UT 






WJ WJ 




*00 


i— r 






1 4£0 

X M-LJWJ 

1470 


• WJ ^L. JL' 


00 

WJ WJ 


r: 


WJ WJ 


UT 

V 1 






: 02SC 


00 




400 

4171"?, 


FF 






1430 


* KJa-UXj' 


0 T . 


_ 








1430 
15BB 


! 023E 


00 


as 


400 

WJ WJ 


O LJ 






: 023F 


00 




*> WJ WJ 


CT 

uJ 1 






1510 


■ IUj- -J WJ 


00 

WJ WJ 




*>WJ WJ 


DL.cZ 






1520 


■ KJa. J 1 


00 




$00 


HP i 

JL> Ly 1 

UUX\ 






J. wj 


* WJ jL. JoL 


U\U\ 

WJ WJ 




?>WJ WJ 






J. wJ*+WJ 


• WJ ^- . -J ' 


WJ WJ 


z 


*>WJ WJ 






1550 


■ WJ X, J«4 


00 

WJ WJ 




4J7i{7i 

P WJ WJ 

417$ (7i 

3PWJ WJ 

4171 (7i 

WJ WJ 








1 3&B 


1 WJ *L _Jv_J 


WJ WJ 




MA'/ 
P4Hr\ 

BYNC 






1570 


: ES29E 

■ WJ -JU 

: 0237 


00 

WJ WJ 








i 520 
1 530 


00 

WJ WJ 


— 


<*• r*r* 

WJ WJ 


C 1 o 






: 0233 


00 




400 

+' WJ WJ 


Lniw 

EM 






1 B00 

1E10 


: 0233 


00 




$00 




: 023ft 


00 




"♦^ WJ WJ 


ouo 




1 S~*0 


■ WJ jL. _J JL" 


00 
WJ WJ 




4(7i(7j 

V WJ WJ 


cor 

rn 
r o 






1E30 


! 023C 


WJ WJ 


■J; 


»>luwj 






1 E40 

X LJ*+ WJ 

1 K50 

X LJ wJ WJ 

1 EEO 
1E70 


1 HJJL-JU 


WJ WJ 




Pkj wj 


HQ 






: 023E 
: 029F 
: 02A0 
: 02A1 


WJ WJ 




4l7il71 
$>kJwj 


nr 
r\o 






r*r* 

WJ l£J 

08 




WJ WJ 










40S 

4* WJ LJ 


*~j r rn i«f t_ 

\ 






1ES0 


OA 




$0A 






1E30 


: 02A2 


01 


= 


*01 
*7E 


II 






1700 


: 02A3 


7E 


m 


XL 






1710' 


: 02A4 


74 




$74 
$00 


$ ( ALS hex. aanduiding: 






1720: 


: 02A5 


00 








1730: 


: 02AE 
: 02A7 


00 
01 




$00 


& 






1740 




$01 








1750: 


: 0208 




ss 


$39 


£ 






17E0: 
1770: 


: 02A3 


0F 
7E 




$0F 
$7E 


) 






: 02AA 










1730: 


: 02AB 


70 


ss 


$70 








1730: 


: 02AC 


0C 




$0C 






1300 


: 02AD 


CO 




$C0 






i310: 
1 320 : 


02AE 


op 

GO 




$88 


■ 

/ 






' 02AF 


D2 


== 


$D2 






1330: 


: 02B0 


3F 




$3F 


0 






1340: 


' 02B1 
0282 
02B3 


0E 




$0G 
$5B 


1 

2 






1350: 


5B 








1830: 


4F 




$4F 








1870: 
1880: 


02B4 
02B5 


EE 




$EE 








OlJ 


SS 


$ED 


5 






1830: 


02BE 
02B7 


7D 




$7D 


E 






1300: 


07 




$07 


7 






1910: 


02BS 
02B3 


7F 




$7F 


s 






1920: 


EF 




$EF 


9 
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KIMID 



PftGE 04 



1330: 


02BA 






$83 




i 34171 : 

J. _J WJ ■ 




0D 




*0D 


■ 


1 -J\_J ■ 


(flopp 






*33 


< 


13&0: 

1 Q713 ! 


\L}*LL>Lf 


ZlP, 






171 Oft P 


(Tip 

M ( 




*R7 
47 B 


) 


1380: 

4 nnr* . 
1 33iiJ ■ 


fftOftP 
kj*i or 




/ o 




ftT-BIGN 


^.ICJILIUJ ■ 




-7 -y 

i ( 




*77 


n 


O0I 1 ■ 
^.kJ 1 tu « 


fTiOPO 


7P 




$7C 


B 


OfTkOfft ■ 


ttOPT 


-rn 




$33 


c 


xi. « 


02C4 


SP 


— . 


$5E 
*73 
$71 


5 


. kJ vJ VJ ■ 


flops 
GAOPP, 

UJ L/ 1_? 


7q 
/ -j 

71 


s 






F 


20G0: 

:7s O fTi « 






$3D 


D 


r&opo 


7Zl 





$74 


H 


tftOPO, 


17»A 

WJM- 




$04 


T 
X 


0<7iQ<7S « 




DC. 





*8E 
$75 


T 
\j 




7S 


_ 




2120! 




TO 

s-'U 




s_' C_f 

$ T .7 


L 


-T-T 
•J» / 




M 


O 1 T Cft ■ 








$54 


N 


2140: 


(Ttopp 






$5C 
$73 


D 


diotvdi 

WJ J-/ 


73 


— . 


P 


v 1 P (71 ■ 

-in *7nj i 
ji. 1 / VJ ' 


UJ x_ U 1 


C 

o / 




$E7 
$5(3 


Q 
R 


; 02D2 


«=;i7l 




•~ i OfTi « 
^ ioiu < 


l 02D3 


&D 




$&D 
$78 
43E 


8 


r% rh i 
«£. 1 3UJ « 




7P 




T 


•***.• -~»f7if71 • 




TP 
1 P 


& 










41C 


v 


OOOiBJ , 


ID 


~ 


$1D 


u 


2230: 


! 132 DS 


43 




$43 


V/ 

A 


00«:0| 




pp 

DC 




$EE 

-4-' \ — 1 \ — 

$DB 

$33 


v 


: Clones 






2 


22813: 




TO 
•— 1 ZJ 


as 


•T- 


JL JLI VJ ' 


: ITionp 


UN* 


s 


$E4 
$0F 


DftBH 


O O ejffl 


: {Tionn 


(Tip 




4. 


OOQflA 


■ fTjonp 


OT 








OTfara 
•_• wj vj 

23113 


■ vjjLur 


nn 
LrO 




$cs 


~ 




i7ii 

UJ 1 


— 


$77 




O T O \7t 

a:- J' O \tJ 


» rv~ir~ 


—7~7 
t ( 








/ l_ 


zz 


4> / U 




ot /: {7s 


: 02E3 


TO 




$33 




j^. uJ WJ 


: B2E4 
: 02E5 
: 02EE 


«~P 


SS 


$5E 


d 


j:„ •_« o VcJ 


70 

71 




$73 




•_' r ICJ 


s 


$71 
$3D 
$ / 4 


f 




: 02E7 


3D 


=: 




2330 


: 02E3 


74 






2400 


: 02E3 


04 

8E 




$04 


i 


2410 
2420 


: 02EPS 




$3E 
$75 


J 




K 


2430 


: 02EC 


7n 

•_»o 




$33 


i 


2440 
2450 


: 02ED 


O / 




$37 
$54 


m 


: 02EE 


54 




n 


24E0 


: 02EF 


5C 




$5C 


0 


2470 


: 02F0 


/ O 




$73 


p 


24S0 


: 02F1 


< 1 




$E7 
$50 




2430 
2500 


: 02F2 


513 




r 


: 02F3 
: 02F4 


GD 




$BD 


s 


2510 


78 




$78 
$3E 


t 


2520 


: 02F5 
: 02FE 
: 02F7 
: 02FS 






u 


2530 


1C 




$1C 


V 


2540 


ID 




$1D 


w 


2550 


43 




$43 


K 


25E0 


: 02F3 


EE 




$EE 


y 
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2570 

2533 

259(3 

2E8MB 

2S1 

2B2 



02FO DB 

02FB 33 

(32FC 13E 

02FD 0F 

02FE (33 

(32FF (30 



$33 
£0£ 
$0F 
$03 
500 



z 
i 
! 

> 

DELETE 



0820 
0830 
0840 
0850 
0860 
0070 



0090 
0108 
0110 
0120 
0130 



0150 
0160 
0170 



0190 
0200 



0200 
0200 
0201 
0204 



0210: 0207 



0220 
0230 
0240 



0250 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 



0390: 



0410 
0420 
0430 



0209 
020C 
020E 
0211 
0214 
0217 
0219 
021C 
021E 
021F 
0221 
0223 
0225 
0227 
0229 
022B 
022E 
0231 
0233 
0236 
0238 
023B 



00 00 

01 00 

02 00 

03 00 

04 00 

05 00 

06 00 
E8 11 
F3 11 
8F 12 
AE 12 
34 13 
6F 12 



20E8 11 
20 AE 12 
85 01 
20 AE 12 
85 00 
20F3 11 
20 F3 11 
20 AE 12 
85 03 
20 AE 12 
85 02 
38 

A5 02 
E5 00 
85 04 
A5 03 
E5 01 
85 05 
20 F3 
20 F3 
A5 05 
20 8F 
A5 04 
20 8F 12 
4C 00 02 



11 
11 

12 



NIL 
EEN 
TWEE 
DRIE 
VIER 
VIJF 
INL 
CRLF 
PRSP 
PRBYT * 
RECCHA * 
PRCHA * 
HEXNUH * 



HEXTEL ORG 
BEREK CLD 
JSR 
JSR 
STA 
JSR 
STA 
JSR 
JSR 
JSR 
STA 
JSR 
STA 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
JSR 
JSR 
LDA 
JSR 
LDA 
JSR 
JNP 



$0001 
$0002 
$0003 



$0005 
$0006 
$11EB 
$11F3 
$128F 
$12flE 
$1334 
$126F 

$0200 

CRLF 

RECCHA 

EEN 

RECCHA 

NUL 

PRSP 

PRSP 

RECCHA 

DRIE 

RECCHA 

TWEE 

TWEE 

NUL 

VIER 

DRIE 

EN 

VIJF 

PRSP 

PRSP 

VIJF 

PRBYT 

VIER 

PRBYT 

BEREK 



OPTELLEN EN AFTREKKEN 



EEN ROUTINE OH OP BEELDSCHERHNIVO TE WERKEN. 
DE GEBRUIKTE SUBROUTINES VAN DE Klh 
STAAN TUSSEN HAAKJES VERNELD. 

AUTEUR : FRANS SMEEHUYZEN 
LIPPEDAL 19 
(CRLF * ME2F) 2904 CL CAPPELLE A.D. IJSSEL 

( ) 

(PRBYT * $1E3B) 
(GETCH * $1E5A) 
(OUTCH * $1EA0) 
(PACK * $1FAC) 



: HEXftDECIHAAL OPTELLEN EN AFTREKKEN 

INTOETSEN EERSTE GETAL (ADRES) 
EN PLPATSEN OP 
DE ADRESSEN 



: TWEE SPATIES OPSCHUIVEN 

: EN HET TWEEDE GETflL INTOETSEN 
: EN OP DE ADRESSEN $0002 EN 
: $0003 PLAATSEN 



: VERSCHILBEREKENING VAN DE 
: TWEE INGETOETSTE GETALLEN 
: EN DE UITKOHST OP DE 
: ADRESSEN $0004 EN $0005 
: PLAATSEN 

: TWEE SPflTIES OPSCHUIVEN 



: DE UITKOHST OP D 
: $0004 EN $0005 OPHALEN 
: EN AFDRUKKEN 

: VOLGENDE BEREKENING HAKEN 
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0010? 
0020 ' 
3030 i 
0040 5 
2350: 
00E0 : 
0073: 
3080: 
0090! 
0100: 
31 10: 
0120:: 
3133: 

T% -: :, Ol . 

31505 

01E0: 
0170: 
0180: 

01S05 

3200: 

0210: 

i ■ ' ■•• n 
If * « 

3230: 
3240: 

0260 s 
0270 s 
$2wJu.> * 
£230 5 



320P! 



0a 30 s 
0490: 
S500: 
05i3: 
8520 s 
0530 s 
0540: 
0550: 
05E0: 
0570 s 
£530; 
0590: 
06S0 5 
06105 

0b20s 
0E30: 
£h40s 



! rH •: : }-: A * : :+: :| : :+: J •! : ■■] ■: * * :+: # :■{■: *: * : :+: $ :+: * * :-| ■: *: *! >f : * * :+• * : * # * # * * * * $ + : * * ! :+ ! * * + + + 

*** RESETPROGRftMMft *** **# 

:|: :+::•!-: k *; ■}■: *; :+: :+: :+: :+: :+: ^: >f : :-f : >f : :+: >f : :+: >f: >f : fr >f : :+: :+ : :+: >»•: :+: :f : :+: >f : >f: ^: >f : ^: >f: 

D o o r « R O 9 £• i" L a Yi S & V e I d 

L a a n v a n Mi dd#tibu r s 26 Pi 
2275 CC VQORBURG. 
T#l. I 070 - 361 123 

o s r a in in a o ft t I e e n d haar opzet a a n h e t do o r J o h 
gepub i i ceerde prosraituna voor een automat 
Met eerste stuKJe is uit JUNIOR boek 2 p. 31 
. Het tweede u i t boek 4 p. 206. Het en i ge wat 

Uit is 99 I at en ^ iB de PTOCedU T8 urn 1 © k i J ke 



D i t P i 
Up rar«s 

f €*S€?t . 

n t tor ) 

we i ke 
zo t idevj 

O P d © 



b a u drat e het k a r o». k t © r 7F 
Dit v'jordt maar eev.f7'.aa i 
adressen 1A5PI .... i«5D s 



(RubOut) WOVdt ov 
gedaan en de waard 
t a a n v e r ande r © n d a n 



n van 

i 5Ch6 

Cmo- 
daa r 
n i t 'i e t 
e rst*" 
t* die 
n i et 



uiee r . 

RESET 

3 Z£!€J C> SGE ADRESSEN 



□RG $0200 



F2 3^ 
EE 03 

EF 33 



S POSER 

BYTES 

MODE 



*0BF1 
*00F2 
$00FE 
*00FF 



TEMPORARY DATA BUFFERS 



-y r* rs. . 
0 3 1 i£ " 


53 


1A 


GTPBIT * 


*iA5S 


0320: 


50 


iA 


CMTL * 


$1A5A 


0330: 


c "' P 


3.A 


CNTH * 


*1A5B 
*1A5C 
*1A5D 


0340: 


5C 


in 


CMTHL. *• 
CNTHH * 


E350; 


5D 
7A 


ift 


-•• p r« ■ 


I A 


MMIL * 


*1A7A 

t>l A7B 


0370 5 


7B 


1A 


NM I H * 


0380; 




10 


BRKTL *■ 


$IA7C 


0330: 


7D 


IA 


BRKTH * 


'I1A7D 


0400 2 










0410: 






5 G2BRUIKTE 


P00RTEN 


0420: 










3430: 


o 


1 R 


PAD * 


$1A30 


0440: 


i - ^ 

Cf I 


IA 


PADD m 


3>ifiSi 


2450: 




IA 


PBD *= 


*1AB2 


0460: 


»-\-?- 


1 A 


PBDD * 


f IAB3 



NUMBER DF STOP BITS 
BIT TIME BUFFER 

HALF BIT TIME BUFFER 

NMI v EOT OR 

BREAK TEST VECTOR 



DATA REGISTER P00RT A 
DATA R I CKT I NGSREG I STER 
DATA REGISTER PGORT B 
DATA RIGHT I NGSREG I STER 




MONITOR ROUTINES 



33 1C 
SF 10 

00 00 



START 
LABJUf 
PRCHA 
BASIC 



IE 

su sr 



0200 
0202 
0205 A3 04 
0207 35 Fl 
0203 A3 03 
020B 85 FF 
020D 85 FE 
020F A2 FF 
3211 3A 
0212 8E F2 



IA 





V- 1 ^-J'- J.' 


+• 


3>105F 


*> 


$1334 


* 


*C000 


LDAIM 


?>1E 


ST A 


PBDD 


LDAIM 


*04 


STA 


PREG 


LDAIM 


$03 


GTAZ 


MODE 


STA 


BYTES 


LDXIM 


$FF 


TXS 




STXZ 


SPUSER 



COLD START BASIC 

PB1 ... PB4 

UITGANG 
RESET P-REG. 

SET AD-MODE 

DISPLAY POINTH, POINTL, INH 
MAAK ST ACKPO INTER IN ORDE 
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0650 


: 0214 


A2 


07 




LDXIM 


*07 


0660 


: 021E 


8E 


82 


1A 


STX 


PBD 


0670 
0680 


: 02i9 


03 


00 




LDAIM 


*00 


: 021B 


8D 


81 


1A 


STA 


PADD 


0E90 


: 021E 


D8 






CLD 


0700 


: 02 IF 


78 






SEI 




0710 


: 0220 


flD 


80 


1A 


LDA 


PAD 


0720 
0730 


: 0223 


48 






PHA 




: 0224 


C9 


FE 




CMPIM 


*FE 


0740 


: 022G 


D0 


03 




BNE 


AFTSW 


0750 


: 0228 


4C 




1C 


JMP 


START 


07E0 


: 022B 


fl9 


67 




AFTSW LDAIM 


*67 


0770 
07S0 


: 022D 


8D 


82 


1A 


STA 


PBD 


: 0230 


fl9 


00 




LDAIM 


$00 


0730 
0800 


: 0232 


3D 


80 


1A 


STA 


PAD 


: 0235 


A3 


7F 




LDAIM 


*7F 


0810 


: 0237 


3D 
3D 


81 


1A 


STA 


PADD 


0820 


: 023ft 




1A 


STA 


PBDD 


0830 


: 023D 


A2 


02 




LDXIM 


$02 


0840 

0850 


: 023F 


SE 


53 


1A 


STX 


STPBIT 


: 0242 


A3 
3D 


5F 
7C 




LDAIM 


*5F 


0880 


: 0244 


1A 


STA 


BRKTL 


0870 


: 0247 


A3 


10 




LDAIM 


*10 


0880 


: 0243 


3D 


7D 


1A 


STA 


BRKTH 


0890 


: 024C 


A3 


CF 




LDAIM 


*CF 


•"ft o ry, {-a 

03013 


: 024E 
: 0251 


3D 


7A 


1 A 


STA 


NMIL 
$14 


0310 


A3 


14 




LDAIM 


0320 


: 0253 
: 0256 


3D 


7B 


1A 


STA 


NMIH 


0330' 


A3 
3D 


0C 
5A 


LDAIM 


*0C 


0340 


: 0258 


1A 


STA 


CNTL 


0350 


: 025B 
: 025D 


A3 


00 
5B 


LDAIM 


*00 


03B0. 


3D 


1A 


STA 


CNTH 


0370 


: 0260 


3D 


5D 


1A 


STA 


CNTHH 


0380 


: 0263 


A3 
3D 


06 
5C 




LDAIM 


$06 


0330 


: 0265 


1A 


STA 


CNTHL 


1000 


: 0268 


A3 


0C 




LDAIM 


$0C 


1010 


: 026ft 


20 


34 


13 


JSR 


PRCHA 


1 020 
1030 


: 026D 


63 






PL A 




: 026E 


C3 


FD 
03 
5F 




CMPIM 


*FD 


1040 

1050 


: 0270 
: 0272 
; 0275 


D0 




BNE 


HPT 


4C 


10 


JMP 


LABJUN 


1060! 


4C 


00 


C0 


HPT JMP 


BASIC 


1070 










; end of program 


1080 


+ 


sV o 









MAAK PA0 T/M PA7 
INGANG 



LEES INHOUD PAD 
BERG DIT EVEN OP 

STAAT SCHAKELAAR OP "JUNIOR BASIS"? 

ZO NEE, SPRING 

20 JA, NAAR BASIS MONITOR 

PB7, PB3, PB4 

MAAK ALLE BITS IN PAD = 0 

MAAK PA7 INGANG 

MAAK PB7 INGANG 

LAADT HET AANTAL STOPBITS 

BREAK VECTOR 



22 K 



pa* o-H 

pa I Q-W 



rc ? - 

pin Li 



22K 



ZET NMI VECTOR 



BIT TIME BUFFER 



HALF TIME BUFFER 
MAAK SCHERM SCHOON 

HAAL OUDE INHOUD PAD OP 

START SCHAKELAAR OP "PM MONITOR"? 

ZO NEE, SPRING 

ZO JA, NAAR PRINTER MONITOR 

KOUDE START BASIC 



1. JUNIOR BASIS 

2. PRINTER MONITOR 

3. COLD START BASIC 



Als schake l aar een wissel wet m i ddenstand. 
5 * 2400 BAUD 
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0200 



020: 



020B CS 



* ft D R E S S * 

: + : een programma om de werkgebieden * 

* van MICRO ODE te bepalen. * 

Door : J. P. v. Toledo 
Kubbestraat 13 
3173 GD POQRTUGAAL 
Tel . s 010 - 160414 



*: 
* 

* 

4: 



DE MICRO ODE ZIT BIJ MIJ IN EPROM, OP ADRES *2000 
*3FFF- DAARDOOR ZOUDEN DE WERKGEBIEDEN VAN MICRO 
ADE KOMEN VAST TE STAAN. DEZE BEVINDEN ZICH OP 
ADRES *2EA3 - *2EAA. 

OM DAT TE VOORKOMEN HEB IK DE NODIGE ADRESBEN GE- 
WIJZIGD, EN EEN PROGRAMMA GEMAAKT DIE DE ADRESSEN 
VAN DE WERKGEBIEDEN VRAAGT. 



HET PROGRAMMA 
SOURCE TABLE: 
SYMBOL TABLE: 
XREF TABLE: 
OBJECT TABLE: 
DE INGEVOERDE 



KOMT MET DE VOLGENDE VRAGEN: 
STRT END 
STRT END 
STRT END 
STRT END 

ADRESSEN WORDEN OP *1A4S - *1A4F 
SPRINGT HET PROGRAMMA NAAR HET 
ADE, IN MIJN GEVAL DUS *2000. 



GE- 
START 



DE WIJZIGINGEN 
1A43 KOMT OP: 
1A49 KOMT OP: 21B3, 
1A4A KOMT OP: 2027, 
1A4B KOMT OP: 25F0, 
1A4C KOMT OP: 2S9D, 
1A4D KOMT OP: 2E64, 
1A4E KOMT OP: 251 E, 
1A4F KOMT OP: 3452, 



MOETEN ALS 
>3FS, 24CD 
30C4, 
23C9, 
25FC, 
395A 
26C0 
339C, 
3983 



VOLGT WORDEN AANGEBRACHT: 



392B 

2432, 

2S3B, 



24FE, 
3SFE, 



3930, 
3774, 



3C72 
3955 



376F, 397E 







ADRESS 


ORG 


ES 


11 


CRLF 




34 


13 


PRCHA 


+ 


00 


20 


MACOLD 




AA 


39 


SOURCE 




Bl 


39 


SYMBOL 


* 


BS 


39 


XREF 




BF 


39 


TABLE 




87 


13 


INPAR 


* 


84 


1A 


PARAH 


* 


66 


1A 


PARBH 


* 


48 


1A 


SALSC 


* 


49 


1A 


SAHSC 


* 


4A 


1A 


EASC 




4B 


1A 


SAST 




4C 


1A 


EAST 


* 


4D 


1A 


SAOC 




4E 


1A 


SAXR 


* 


4F 


1A 


EAXR 




E8 


il 


STARTA 


JSR 


00 






LDYIM 


AA 




SOUR 


LDAAY 


34 




JSR 








I NY 



*0200 

*11E8 PRINT CR EN LF 

*1334 PRINT KARAKTER 

*2000 KOUDE START MICRO ADE 

*39AA OPZOEKTABEL 

*39B1 OPZOEKTABEL 

*39B8 OPZOEKTABEL 

*39BF OPZOEKTABEL 

$1387 HA ALT PARAMETERS BINNEN 

*1A64 EERSTE ADRES 

*1A66 TWEEDE ADRES 

*1A4S SOURCE-1 

*1A49 SOURCE EERSTE PAGINA 

$1A4A SOURCE LAATSTE PAGINA 

*1A4B SYMBOL EERSTE PAGINA 

$1A4C SYMBOL LAATSTE PAGINA 

*1A4D OBJECT EERSTE PAGINA 

*1A4E XREF EERSTE PAGINA 

*1A4F XREF LAATSTE PAGINA 

CRLF BEGIN OP NIEUWE REGEL 

*00 ZET Y OP NUL 

SOURCE LAAD ACCU MET 'SOURCE' 

PRCHA EN PRINT 
TOT 
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0650: 


020C 
020E 
0210 


C0 


07 
F5 






CPYIM 


$07 


0GE0: 


D0 
20 






BNE 


SOUR 


0670: 


8ft 


02 
13 




JSR 


STRT 


0680: 


0213 


20 


87 




JSR 


INPAR 


0690: 


! 0216 
: 0219 


ftD 


64 


1ft 




LDA 


PARAH 


0700: 


SD 


48 


1ft 




STA 


SALSC 


0710: 


: 021 C 


69 


00 






ADCIM 


$00 


0720: 
0730: 


02 IE 


SD 


49 


1ft 




STA 


SAHSC 


: 0221 


ftD 


66 


1ft 




LDA 


PARBH 


0740: 


: 0224 


SD 


4ft 


1ft 




STA 


EASC 


0750: 


: 0227 


20 


ES 


11 


STARTB 


JSR 


CRLF 


0760: 


: 022ft 


ft0 


00 






LDYIM 


$00 


0770: 


: 022C 


B9 


Bl 

34 


39 
13 


SYMB 


LDAAY 


SYMBOL 


07G0: 


: 022F 


20 




JSR 


PRCHA 


0790: 


: 0232 


CS 








INY 




0S00: 


: 0233 


C0 


07 
F5 






CPYIM 


$07 


081 0: 


: 0235 


D0 






BNE 


SYMB 


0820: 


: 0237 


20 


Sft 


02 




JSR 


STRT 


0830: 


: 023ft 


20 


87 


13 




JSR 


INPAR 


0840: 


: 023D 


ftD 


64 


1A 




LDA 


PARAH 


0850: 


: 0240 
: 0243 


SD 


4B 


lfi 




STA 


SAST 


0860: 


AD 


66 


1A 




LDA 


PARBH 


0870: 


: 0246 


8D 


4C 


1A 




STA 


EAST 


0880: 


: 0249 
: 024C 


20 


E8 


11 


STARTC 


JSR 


CRLF 


0890: 


ft0 


00 






LDYIM 


$00 


0900. 


: 024E 
0251 


B9 


BS 
34 


39 


REF 


LDAAY 


XREF 


0910: 


20 


13 




JSR 


PRCHA 


0920: 


0254 
0255 


CS 








INY 




0930 : 


C0 


07 
F5 






CPYIM 


$07 


0940: 
0950: 


. 0257 


D0 






BNE 


REF 


: 0259 


20 


Sft 


02 




JSR 


STRT 


0960: 


' 025C 


20 


37 


13 




JSR 


INPAR 


0970: 
0980 : 


: 025F 


ftD 


b4 


iA 




LDA 


PARAH 


' 8262 


3D 


4E 


1A 




STA 


SAXR 


0990: 


■ 0265 


ftD 


66 


IA 




LDA 

STA 


PARBH 


5 000 


: 0268 


SD 


4F 


1A 




EAXR 


1010: 


: 02GB 


20 


ES 


11 


ST'ARTD 


JSR 


CRLF 


1020: 


: 02 6E 


ft0 


00 




LDYIM 


400 


1030: 


: 0270 


B9 


98 


02 


OBJ 


LDAAY 


OBJECT 


1040. 


: 0273 


20 


34 


13 




JSR 


PRCHA 


i050. 


: 027E- 


CS 








INY 




10G0 


: 0277 


C0 


07 

F5 






CPYIM 


$07 


1.070: 


: 0279 


D0 






BNE 


OBJ 


1080: 


: 02 7B 


20 


Sft 


02 




JSR 


STRT 


1090. 


: 027E 


20 


37 


13 




JSR 


INPAR 


1100 


: 0281 


ftD 
3D 
4C 


64 


IA 




LDA 


PARAH 


1110 


: 0284 


4D 


IA 




STA 


SAOC 


1120: 


: 0287 


00 


20 




JMP 


MACOLD 


1130 


: 028ft 


A0 


00 




STRT 


LDYIM 


$00 


1140 
1150: 


: 028C 


B9 


BF 


39 


TftBST 


LDAAY 


TABLE 


: 02SF 


20 


34 


13 




JSR 


PRCHA 


1160 
1170 


: 0292 


CS 








INY 




: 0293 


C0 


10 






CPYIM 


$10 


1180 


: 0295 


D0 


F5 






BNE 


TABST 


1190 
1200 


: 0297 


60 








RTS 




: 0298 


4F 






OBJECT 




'D 


1210 


: 0299 


42 










'B 


1220 


: 029ft 


4ft 
45 










' J 


1230' 


: 029B 










' E 


1240 
1250 


: 029C 


43 










'C 


: 029D 


54 
20 
20 










' T 


i260 
1270 


: 029E 
: 029F 























Y=7 

MAAK DE VRAAG AF 
HAAL DE ADRESSEN 
HftAL EERSTE ADRES 
EN STORE OP SOURCE-1 
TEL ER 1 BIJ OP 

EN STORE OP SOURCE EERSTE PAG I NA 
HAAL TWEEDE ADRES 

EN STORE OP SOURCE LAATSTE PAGINA 

BEGIN OP NIEUWE REGEL 

ZET Y OP NUL 

LAAD ACCU MET 'SYMBOL' 

EN PRINT 

TOT 

Y=7 

MAAK DE VRAAG AF 
HAAL DE ADRESSEN 
HAAL EERSTE ADRES 

EN STORE OP SYMBOL EERSTE PAGINA 
HAAL TWEEDE ADRES 

EN STORE OP SYMBOL LAATSTE PAGINA 
BEGIN OP NIEUWE REGEL 
ZET Y OP NUL 
LAAD DE ACCU MET ' XREF' 
EN PRINT- 
TOT 



MAAK DE VRftfiG ftF 

HAAL DE ADRESSEN 

HftAL EERSTE ADRES 

EN STORE OP XREF EERSTE PAGINA 

HAAL TWEEDE ADRES 

EN STORE OP XREF LAATSTE PAGINA 

BEGIN OP NIEUWE REGEL 

ZET Y OP NUL 

LAAD DE ACCU MET 'OBJECT' 

EN PRINT 

TOT 

y=7 

MAAK DE VRAAG AF 
HAAL DE ADRESSEN 
HAAL EERSTE ADRES 

EN STORE OP OBJECT EERSTE PAGINA 
SPRING NAAR KOUDE START MICRO ODE 
ZET V OP NUL 

LAAD ACCU MET 'TABLE: STRT END' 

EN PRINT 

TOT 

Y=16 

GA VERDER MET HOOFPROGRAMMA 
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***** MASTERMIND DP BEELDSCHERM VOOR JUNIOR ***** 



* :+: :+: :+: if: if: :+: * * * * * * * :+: * * *: * * * * * * * if: if : * * *: *: *: »•: +: * * * +: $ * . $ „. : :+: :+: :+: +: ^ 



HET PROGRAMMA ' MASTERMIND' START OP ADRES *020B EN 
BEGIN!" MET HET 8CH00NMAKEN VAN HET SCHERM. DAARNA 
WORDT EEN STRING GEPRINT, MET DAARIN EEN TELLER DIE 
STEEDS MET 1 VERLAAGD WORDT ALS ER EEN CIJFER AAN DE 
GEHEIME TE RADEN COMB I NAT IE WORDT TOEGEVOEGD. 
DE GEHEIME COMB I NAT IE STELT MEN SAMEN DOOR OP DE SPAT IE- 
BALK TE DRUKKEN. ALS DE GEHEIME COMB I NAT IE SAMENGESTELD 
IS, KAN HET RADEN BEGINNEN. ALLE CIJFERS MOGEN WORDEN 
GEBRUIKT. VINDT- MEN DIT TE MOEILIJK, DAN IS HET VRIJ 
EENVOUDIG OM DE CI JFERHQQGTE VAN DE TE RADEN COMB IN A- 
TIE TE BEGRENZEN. 

□OK IS HET MOGELIJK HET A A NT A L CIJFERS TE BE- 
GRENZEN OF DIE COMB I NAT IE JUIST L ANGER TE MA KEN. ALLE 
N I ET-NUMER I EKE TOETSEN WORDEN TIJDEMS HET RADEN VAN DE 
COMB I NAT IE GEWEIGERD. IMDIEN MEN TIJDENS HET RADFN VAN 
DE COMB I NAT IE DE TCETS ' H' (HELP) IMDRUKT, GEEFT HET 
PROGRAMMA EEN CIJFER VAN DE GEHEIME COMB I NAT IE VRI j 
PLUS 10 STRAFPUNTEN. 

NA HET INGEVEN VAN DE COMB I NAT IE GEEFT HET PROGRAMMA 
VRIJ WELKE VAN DE INGEVOERDE CIJFERS IN HET PROGRAMMA 
VOORKOMEN EN HOEVEEL ER OP DE GOEDE PLAATS ST AAN. 
NAD AT DE GEHELE CODE GOED IS GERADEN WORDT HET AAN- 
TAL PUNTEN GE PRINT, WAARNA NAAR DE MONITOR TERUGGE- 
SPRONGEN WORDT. 
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0010: 










MftSTERMIND 


>k>f:>f:>k)fc 

■ * ♦ « « 


0020 : 




B0 


00 


CODE 


* 


$00B0 




0030 






C0 


00 


ftSCSTO 


:+: 


*00C0 




0040 : 




D0 


m 


ftSCSTR 


:+: 






0050 


> 




D7 


00 


COUNT 


* 


*00D7 




0060: 




T)P. 


Pi PI 


PCNTH 




*00DB 




0070: 






D9 




PCNTL 


»■: 


*00D9 




00S0. 






Dfi 


00 


FIGFND 


+ 


*00DA 




0090. 






ED 


00 


STRING 




5»00ED 




0100: 
















0110: 










5 MONITOR ROUTINES 




0120. 


















0130: 






5F 


1 Pi 


LflBJUN 




tlfcSF 


PRINT 'JUNIOR' 


0140. 






{ ■— ' 


1 1 


PRSP 




*i 1F3 


PRINT ft SPftCE 


0150 






E8 


i 3 


CRLF 


* 


*11E8 


PRINT ft OR & LF 


0160: 






RF 


12 


PRBYT 


:+: 


f>128F 


CQNV. BYTE IN ft TO 2 ASCII CHftRS 


0170- 






9B 


12 


PRNIBL 


* 


$129B 


PRINT LOWER NIBBLE 


0130 






RE 


12 


RECCHft 




*12ftE 


RECEIVE 1 ftSCII CHftR FROM PRINTER 


0190: 




34 


13 


PRCHft 




$1334 


PRINT ftM ASCII CHftR 


0200 


















0210: 








?PIft 6532 ftD RESSE RING 


0220 : 
















0230: 




D4 


Ifi 


RDTJ.ME 




*1AD4 


DISftBLE TIMER-IRQ; REftD TIMER 


0240: 






i a 

x. n 


RDFLftG 




*1AD5 


REftD FLftG REGISTER 


0250 


■ 




F7 


1 ft 


CLK1KT 




*iflF7 


DISftBLE TIMER- IRQ; REftD TIMER 


0260: 
















0270: 
















0280: 0200 








MftSTRM 


ORG 


*0200 




0290 


: 0200 


20 


73 


03 




JSR 


CLSR 




0300: 0203 




1 R 






LDXIM 


MB 


GO TO 


03 1 0 : 


0205 


m 






U L. E H R 


LDftIM 


$20 


POSITION 


0320: 


' 0207 


20 


^4 


13 




JSR 


PRCHft 


OF 


0330: 020ft 


Cft 








DEX 




STRING 


0340: 020B 


D0 


FR 






BNE 


CLEftR 




0350 : 


■ 020D 


R2 


r\~? 






LDXIM 


$33 




0360! 


: 020F 


00 


03 






LDYIM 


$03 


PRINT 


0370: 02 it 


20 


5ft 


03 




JSR 


PRSTRI 


STRING 


0330 : 


' 0214 


ft9 


00 






LDftIM 


*00 


RESET 


0330: 0216 


85 


D8 






STft 


PCNTH 


POINTS 


0400: 0213 85 


D9 






STfi 


PCNTL 


COUNTER 


0410: 


021ft 


ft2 


05 






LDXIM 


*06 


SET UP FOR 6 FIGURES 


0420: 02 1C 


20 


ftE 


12 


I NKEY 


JSR 


RECCHft 


KEY IN 


0430: 02 IF 


ftD 


D4 


1ft 




LDft 


RDTIME 


REftD TIME TO GET RANDOM FIGURE 


0440: 


. 0222 


29 


0F 






ftNDIM 


$0h 


IF 


0450: 0224 


38 








SEC 




BIGGER 


0460: 0225 


C9 


0fl 






CMPIM 


*0fi 


THAN 09, 


0470: 0227 


B0 


07 






BCS 


DECCNT 




0430: 0229 


39 


30 






ftDCIM 


$30 


PACK INTO 


0490: 022B 


95 


D0 






STftflX 


ftSCSTR 


ASCII 


0500: 022D 


95 


C0 






STflftX 


ftSCSTO 


AND STORE nt 



on 
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0510: 


022F 


Oft 








DEX 






0520: 


0230 


ft3 


08 




DECCNT 


LDftIM 


$08 




0530: 


0232 


20 


34 


13 




JSR 


PRCHft 




0540: 


0235 


8ft 








TXft 




DECREMENT COUNTER 


0550: 


0236 


18 








CLC 






0560: 


0237 


63 


30 






ftDCIM 


$30 




0570: 


0233 


20 


34 


13 




JSR 


PRCHft 




0580! 


023C 


ft3 


08 






LDftIM 


*0S 




0530: 


023E 


20 


34 


13 




JSR 


PRCHft 




0500 : 


0241 


3ft 








TXft 






0610: 


0242 


D0 


DS 






BNE 


I NKEY 




0620 : 


0244 


ft0 


03 




PRINT 


LDYIM 


$03 


PRINT 


0530 : 


0245 


ft2 


Di 






LDXIM 


*D1 


STRING 


0640: 


0248 


20 


5ft 


03 




JSR 


PRSTRI 




0550: 


024B 


ft3 


00 






LDftIM 


$00 


RESET 


0650: 


024D 


85 


D7 






STft 


COUNT 


COUNTER 


0670: 


024F 


ft2 


01 






LDXIM 


$01 


H - KEY 


0680: 


0251 


20 


ftE 


12 


HELP 


JSR 


RECCHft 


DEPRESSED ? 


0590! 


0254 


C3 


43 






CMPIM 


*48 




0700: 


0255 


D0 


ic 






BNE 


VftLKEY 


IF NOT, JUMP 


0710: 


0258 


18 








CLC 






0720 


: 0253 


FS 








SED 






0730: 


0250 


ft3 


10 






LDftIM 


$10 


10 POINTS 


0740 


: 025C 


65 


D3 






ADC 


PCNTL 


EXTRft 


0750 


: 02 5 E 


30 


02 






BCC 


CHECK 




0760 


: 0260 


E6 


D8 






INC 


PCNTH 




0770 


: 0262 


35 


D3 




CHECK 


STft 


PCNTL 




0780 


: 0264 


DS 








CLD 






0730 


: 0255 


ft3 


08 






LDftIM 


*08 




0800 


: 0257 


20 


34 


13 




JSR 


PRCHft 


PRINT 


0810 


: 026ft 


85 


D0 






LDftftX 


ftSCSTR 


ONE 


0320 


: 02SC 


3D 


73 


02 




STft 


$0273 


FIGURE 


0830 


: 025F 


20 


34 


13 




JSR 


PRCHft 




0840: 0272 


ft9 


Cft 






LDftIM 




IS THE 


0850 


: 0274 


95 


B0 




VftLKEY 


STftftX 


CODE 


KEY 


0850 


: 0276 


23 


F0 






ftNDIM 


$F0 


VftLID ? 


0870 


: 0278 


C3 


30 






CMPIM 


$30 


IF YES, JUMP 


0880 


: 027ft 


F0 


12 






BEQ 


COMPLT 




0830 


: 027C 


ft9 


08 






LDftIM 


$03 




0900 


: 027E 


20 


34 


13 




JSR 


PRCHft 


NO VftLID KEY 


0910 


: 0281 


ft9 


20 






LDftIM 


$20 




0920 


: 0233 


20 


34 


13 




JSR 


PRCHft 


REMOVE 


0930 


: 0286 


ft3 


08 






LDftIM 


$08 




0940 


: 0288 


20 


34 


13 




JSR 


PRCHft 


FROM SCREEN 


0950 


: 023B 


4C 


51 


02 




JMP 


HELP 




0950 


: 02SE 


ES 






COMPLT 


INX 




IS 


0970 


: 028F 


E0 


07 






CPXIM 


$07 


THE 


0980 


: 0291 


F0 


08 






BEQ 


CMPCOD 


CODE 


0990: 0233 


ft3 


2D 






LDftIM 


$2D 


COMPLETE ? 


1000: 0235 


20 


34 


13 




JSR 


PRCHft 


IF NOT, 
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1 Ui i i7i 

1010 


• ni~nn 
■ 0Z.yb 




cr 4 

51 


02 




Tkji rv 

JMP 


HELP 


BACK. 






1020 


m {Tk -~i i"V TV 

s 029B 


A2 


01 




CMPCOD 


LDXIM 


*01 










• m #*v rv 

s 029D 


B5 


B0 




NTCMP 


LDRAX 


CODE 


COMPARE 






1040 


« flk^iQC 

- 0*£.:3r 


rvcr 


U0 






CMPRX 


RSCSTO 


CODES 






-i Okcrm 
10.J0 


5 02A1 


D0 


0B 






BNE 


TOTCMP 


IF EQUAL, JUMP 






i OkCT m 


5 02R3 


Eb 


D7 






INC 


COUNT 








1070 


■ m •"*! /v c 

s 02R5 


05 


D7 






LDR 


COUNT 








10S0 


s 02fi7 


C9 


0G 






CMPIM 


*0B 








1090 


■ m j~\ rv 

5 02A9 


D0 


03 






BNE 


TOTCMP 








1 1 oiok 
1 100 


■ 0z.Ro 




2R 


03 




Tkj TV 

JMP 


PRSTR 








1 1 1 (7k 
1110 


■ m •~i /"\ r~ 


to 






TOTCrtP 


INX 




IS THE CODE TOTALLY 


COMPARED 


? 


1 1 xL\U 


■ 02RF 


C0 


07 






CPXIM 


*07 


IF NOT, 






i 1 TOk 
1 1 -30 


• ni""*« 0 4 

» 0z.bl 


rvn 

D0 


ER 






BNE 


NTCMP 


JUMP. 






1 -f A Ok 

1 1 40 


■ 0Z.B3 


h9 


00 






LDAIM 


$00 


RESET COUNTER THAT 


INDICATES 




1 150 


■ fik **"» r» cr 

! 02B5 


OCT 


rv/"v 

DR 






STA 


FIGFND 


FIGURES ARE FOUND 


IN CODE 




1 lb0 


s 02B7 


4 r\ 

18 








CLC 










1 1 "TOk 
1 1 /0 


» 0Z.DO 


F8 








SED 










1 i OOk 
1 1 O0 


• rt-inn 

• 10^03 


ah 
HD 


Ok 4 

01 






I rVATkil 

LDRIM 


$01 


INCREMENT 






1 1 30 


« m •"*• r*i rk 

5 02BB 


65 


TV. f\ 

D9 






ADC 


PCNTL 


POINTS 






1200 


■ m r*. t%. 
5 02BD 


85 


D9 






STR 


PCNTL 


COUNTER 






4 ~ 1 m 
1^10 


• 02BF 


D0 


02 






BNE 


PRFIG 








4 •-.•-iiTk 
l^.ii.0 


• 02C 1 


Eb 


tvrv 

D8 






INC 


PCNTH 








1 OTOk 

1 2w'0 l 


» 02C 3 


DS 






tv nr* t* r*\ 

PRFIG 


CLD 










i /• Ok « 

1 240 ! 


• 02Ca 


20 


ES 


4 4 
11 




JSR 


CRLF 










• 02C7 


H0 


r% 4 
01 






LDYIM 


$01 








4 -~ir; m i 

lz.b0 J 


I 02C9 


R2 


ra 4 
01 






LDXIH 


*01 








l«i f0 • 


! 0^CB 


B9 


B0 


00 


PRONCE 


LDAftY 


CODE 


THIS PART 






1 280 1 


' 02CE 


D5 


C0 






CMPRX 


ASCSTO 


PRINTS 






1 4i:30 ! 


1 rj» .—, rv Dk 

5 02D0 


F0 


4 —r 

13 






BEQ 


OUT 


THE FIGURES 






1 O00 


• 02D2 


ES 








INX 




THAT 






4 T 4 m • 

1 0 1 0 ! 


! 02D3 


E0 


07 






CPXIM 


*07 


ARE 






1 320 ! 


S 02D5 


D0 


F4 






BNE 


PRONCE 


FOUND, 






4 *r"Tm • 

lo30l 


02D7 


R2 


nk 4 
01 






LDXIM 


*01 








1 o40 ■ 


02D9 


cs 








I NY 










1 OD0 « 


02DR 


C0 


07 






CPYIM 


$07 










1 okonp 

UJ*LUL, 


H(7k 
U0 


tu 






DlNt 


PRONCE 








1370: 


02DE 


05 


DA 






LDA 


FIGFND 


COVERS THEM 






13S0: 


02E0 


D0 


2B 






BNE 


OUTSTR 


TO MAKE 






1390 s 


02E2 


4C 


44 


02 




JMP 


PRINT 


SURE 






1400: 


02E5 


20 


34 


13 


OUT 


J6R 


PRCHA 


THAT 






1410: 


02ES 


20 


F3 


11 




JSR 


PRSP 


THEY 






1420: 


02EB 


EG 


DA 






INC 


FIGFND 


ARE 






1430: 


02ED 


A9 


FF 






LDAIM 


*FF 


ONLY 






1440: 


02EF 


99 


B0 


00 




STAAY 


CODE 


PRINTED 
ONCE 






1450: 


02F2 


98 








TYA 








1480: 


02F3 


48 








PHA 










1470: 


02F4 


C8 






COVER 


I NY 










14S0: 


02F5 


C0 


07 






CPYIM 


*07 








1490: 


02F7 


D0 


05 






BNE 


ASCCOD 








1500: 


02F9 


68 








PLA 
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15i0s 


02Fft 


AS 








thy 


1520: 


02FB 


4C 


CB 


02 




jmp 


1530 5 


02FE 


15 


C0 




A5CC0D 


LDf-iftX 


1540: 


0300 


D9 


B0 


00 




CMPPVY 


1550: 


0303 


D0 


05 






BNE 




0305 


ft 9 


FF 






LDPlIM 


1573: 


0307 


33 


B0 


00 




ST ROY 


1.530: 


030ft 


4C 


F4 


02 


RET 


JMP 


1590: 


030D 


02 


EG 




GLJTBTR 


LDXIM 


16002 


030F 


fi0 


03 






LDYIM 


161®* 


031 1 


20 


5 ft 


03 




JSR 


1 S2C3 s 


03 i 4 


1 S 








Qj [j 


J 630" 


03 15 


09 


30 






LDft I M 


1340: 


03 1 7 


55 


D7 






fiDC 


1350: 


0319 


20 


34 


13 




J3R 


1660 s 


03 1C 


ft2 


01 






LDXIM 


1570: 


03 IE 


B5 


D0 




PSTB [ W 


i DAftX 


3 380 8 


B320 


95 


C0 






BTftftX 


1 630 s 


0322 


ES 








I N X 


1780: 


0323 

V.' 'm.' A... 


F0 


07 






pPVTM 


! 710: 


0325 


D0 


P7 






BNE 


I 720 : 


0327 


4C 


44 


02 




JMP 


i 730: 


032ft 


20 


ES 


1 1 


PR SIR 


JBR 




032D 


ft 2 


27 






LDXIM 


1 750: 


032F 


Pi0 


04 






LDYIM 


i 7G0 * 


0331 


20 


5Pi 


03 




JSR 


1770: 


0334 


ft5 


DS 






LDft 


1780 s 


033 G 


F0 


0B 






BEG? 


1 790 ? 


033S 


20 


9B 


12 




JSR 


1 g00 : 


033B 


A5 


D3 






LDft 


1810s 


033D 


20 


3F 


12 




JSR 


1320: 


S340 


4C 


57 


03 




JMP 


•330: 


S343 


RS 


D9 




SET 


LDft 


1 340 5 


0345 


29 


F0 






ftNDJM 


1 850 : 


0347 


F0 


05 






BEQ 


1 360 2 


0349 


ft 5 


D9 






LDft 


1370: 


034B 


20 


SF 


12 




JBR 


1880 s 




4C 


57 


£33 


RETMON 


Jf'iP 


1 330 : 


0351 


IS 








CL.C 


1900: 


0352 


m 


D3 






LDft 


1910: 


0354 


20 


9B 


12 




JSR 


1920: 


0357 


4C 


5F 


10 


END 


JMP 


1930s 


035ft 


86 






PRSTRI 


STX 


1940s 


035C 


S4 


EE 






STY 


1950s 


035E 


00 


00 






LDYIM 


1960s 


0360 


§i 


ED 




JMEWPR 


LDft I Y 


1970: 


0332 


C3 


03 






CMP 1 H 


1930: 


0334 


F0 


0C 






BEQ 


1990: 


036b 


20 


34 


13 




JSR 


2000 : 


0363 




ED 






INC 



J2 
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(W&J) PftGE 04 



PRQNCE 

ftSCSTO 

CODE 

RET 

$FF 

CODE 

COVER 

$EE PRINT 
$03 STRING 
PRSTRI 



$30 PRINT NUMBER OF 

COUNT FIGURES THAT ARE 

PRCHfi FOUND IN THE RIGHT PLACE 

$01 

ASCSTR RESET 
ftSCSTO BUFFER 

$07 

RSTBUF 
PRINT 

CRLF PRINT 

$27 STRING 

$04 CODE 

PRSTRI FOUND ETC. 

PCNTH 

SET 

PRNIBL PRINT 

PCNTL POINTS 0 - 99 

PRBYT 

END 

PCNTL 

*F0 

RETMON 
PCNTL 
PRBYT 
END 

PCNTL 

PRNIBL 

LftBJUN 

STRING 

STRING +01 

$00 

STRING 

$03 

EOSTR 

PRCHfi 

STRING 
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2010: 


03EB 


D0 


02 






BME 


pmmn 


2020: 


03ED 


EE 


EE 






INC 


S T RI MG 


2030: 


03&F 


4C 


E0 


03 


PRftGftN 


JMP 


NEWPR 


2040: 


0372 


E0 






EOSTR 


RTS 






0373 


09 


0C 




CLSR 


LDftIM 


*0C 


20E0: 


0375 


20 


34 


13 




JSR 


PRCHft 


2070: 


0378 


09 B0 






LDftIM 


*B0 


2080 : 


037ft 


3D 


F7 


1ft 




STft 


CLK1KT 




037D 


2C 


D5 


1ft 


REftD 


BIT 


RDFLftG 


2100: 


0380 


10 


FB 






BPL 


REftD 


2110: 


0382 


£0 








RTS 





7 IS TIMER FLftG 



HEX-DUMP V01. 
STftRTftDRES: 
0383 02 4D 41 53 54 45 52 4D 49 4E 
0390 0ft 0ft 54 4F 20 47 45 54 20 54 
039D 53 45 43 52 45 54 20 43 4F 44 
03ftft 55 53 48 20 54 48 45 20 53 50 
03B7 42 41 52 20 5B 3E 5D 20 54 49 
03C4 53 29 08 08 08 08 08 08 08 08 
03D1 02 0ft 0D 59 4F 55 52 20 43 4F 
03DE 50 4C 45 41 53 45 20 03 02 20 
03EB 4E 4F 55 4E 44 20 49 4E 20 54 
03FS 43 4F 44 45 2C 49 4E 20 54 48 
0405 49 47 48 54 20 50 4C 41 43 45 
0412 4E 49 47 55 52 45 28 53 29 08 
04 IF 08 08 08 08 08 0S 08 03 02 0Pl 
042C 55 52 20 43 4F 44 45 20 49 53 
0439 47 48 54 2E 59 4F 55 20 48 41 
044E 41 20 54 4F 54 41 4C 20 50 4F 
20 4F 4E 20 03 



44 0D 0ft 

48 45 20 

45 20 50 
41 43 45 
4D 45 28 
08 08 03 

44 45 20 

49 53 20 

48 45 20 

45 20 52 
20 20 20 
08 08 08 
0D 53 4F 
20 52 49 
5E 45 20 

49 4E 54 



. MftSTERMIMD. . 
. . TO GET THE 
SECRET CODE P 
USH THE SPftCE 
BftR +£*• TIMEC 

S) 

. . . YOUR CODE 
PLEftSE . . IS 
FOUND IN THE 
CODE, IN THE R 
IGHT PLftCE 
FIGURE(S) .... 

YO 

UR CODE IS RI 
GHT. YOU HAVE 
ft TOTAL POINT 
B OF . 



SYMBOL 


TABLE 


4000 4180 


PftGE 


01 






flSCCOD 


02FE 


ftSCSTO 


00C0 


ASCSTR 


00D0 


CHECK 


02 E 2 


CLEAR 


0205 


CLKQKT 


1AF7 


CLSR 


0373 


CMPCOD 


029B 


CODE 


00B0 


COMPLT 


028E 


COUNT 


00D7 


COVER 


02F4 


CRLF 


11ES 


DECCNT 


0230 


END 


0357 


EOSTR 


0372 


FIGFND 


00DA 


HELP 


0251 


INKEY 


021 C 


LftBJUN 


105F 


MftSTRM 


0200 


NEWPR 


03E0 


NTCMP 


029D 


OUTSTR 


030D 


OUT 


02E5 


PCNTH 


00DS 


PCNTL 


00D9 


PRftGAN 


03EF 


PRBYT 


12BF 


PRCHft 


1334 


PRFIG 


02C3 


PRINT 


0244 


PRNIBL 


1 29B 


PRONCE 


02CB 


PRSP 


11F3 


PRSTR 


032ft 


PRSTRI 


035ft 


RDFLftG 


lftD5 


RDTIME 


lftD4 


REftD 


037D 


RECCHft 


12ftE 


RETMON 


034E 


RET 


030fl 


RSTBUF 


031E 


SET 


0343 


STRING 


00ED 


TOTCMP 


02AE 


VftLKEY 


0274 
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PfiGE 81 



8B3B 
88<+8 
8858 

8878 
8888 



8118 
8128 

n*Tn 
mi on 

8148 
8158 
81B8 
8178 



vivv 

8218 

8238 
8248 
8258 
8263 
8278 

tvvnn 

VLQV 

8238 



8328 
8338 
8348 
8358 
8358 
8378 
8388 
8398 
8488 
8418 
8428 
8438 
8443 
8458 
8488 
8478 



8588 
8518 
8528 
8538 
8548 
8558 
85EB 
8578 
8588 
8588 
8888 
3S18 
8628 
8E3B 
8b48 



HK1SEC 



* * J.K. VERNIKNEN 

* * V. IJSESDIJKSTRftRT 128 

* * 1442 CS rUPJIEREND 

* * Tel.: 82338 - 21733 



8 flRMSTUURBRnE PODRTEN 
VOQR OUTPUT 



VOGR KIM VOLGENDE RDRESSEN WIJZIGEN : 



* * * TIHER-LOCfiTIE'S IN TfiBEL 



T/N 



* 



* SHOW 

* GETKEY 



* RDRES OUTPUT DfiTfi REG. 

* RDREB BfiTft DIR. REG. 



* 

* * 

OP DISPUW VERSCrilJNEN : UREN ! MIS. ! 

r\ru kinkJ rrnn 



* lucib to i/n o ucLuruxi icw Lurcpwc i uu 

* lucio t* l/H / XLuniti i cm lui) oimi\i uuirui 

a. TnrTP n t /w r. rri t Ti/irrTrki tt tt\ nmn mrrntiT 

t- iucio o i/n fa ixiLiJiuci icTm i uu oiur uuirui 

* BLLEEN TIJDENS GELIJKZETTEN LDPENDE TUB (w.u. v. DE 

* DfiGTELLER) STOPT DE LDPENDE KLDK OH T 

* HDGELIJK TE MfiKEN. 



* uci_ijr\ici left 



* TOETS 1,5,3 URENTEL 

* TOETS 2, 8, « MINUT! 

* TOETS 3.B.7 




BISP 2+3 TIJDENS WIJZIGEN 
BISP 1+2 " 
BISP 3+4 " 
BISP 5+S " 



* FUNKTIES : 



PC => 



DiREKi KjTrbi vBLuVEND; 

STnn mMTHrniMMay mrTrurr /« TTiwnim 
iur/UMuLfumuf\ uuirui voLu vcnuj 

STOP OUTPUT TOT VOLGENDE WEKTIJD 
RESET PC/ST-TOETS d«z HEEM EERSTVOLGENBE 
TIJD fiftN/UIT 



* TOETS fiB => 

* TOETS Dfi => 
* 

* FLAB-REGISTER BIJ FLWKT I E- TDETSEN 

* 
* 
* 



WFLfiG 



PC 
ST 



L 

8 

X=>8 
8/2 



! Ml 
! 1/2 



** IND1EN SETD = STOPD = 6 GEEN CONTROLE DfiGTELLER ! ** 
OUTPUT-BITS VIA CONNECTOR B-KftNT (LUIDSPREKER BIT 8) 



14 
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* SGFTURRE-MfiTIG UITBREIDBflfiR TOT IB (A-KfiNT 88K GEBRUIKEN) 

* SBRESSEERBflflR IN OUTVIfi = INHOUB DDRB ($1882/1882 etc) 

* 

* CLOCK dT=l SEC 
OUTCLK ORG $8288 

* TfiBEL : CONSTANTS + LOC. TIMERS => 8888 T/K 888E 

* $8888 = SFF OFFSET TIHER 

* $8881 = SFF LB. TIHERLDCAT1E 1/1824 

* $8882 = Slfi H.O. TIKERLDCATIE 

* $8883 = S8o OFFSET (THEDR. 85 : CCRR X 

* $8884 = SFE LG. TIKERLDCflTIE 1/S4 

* $8885 = SIS HO. 

* $8888 = SD3 OFFSET 

* $8887 = SFF ETC 

* $8888 = Slfi 



* = SFF 
» $888B = Slfi 

* $8B8C = SFF 

* mm = sff 

* $88BE = Slfi 

88 88 FACTOR * $8888 OFFSET TIMERS 

81 88 CNTXL * $8881 L.O. fiBRES TIRERLOC. 
15 88 STTfiB * $8815 INDEX-REG X VOQR TfiBEL 

15 88 SECFLG * $8818 PRESET OP $8F 8LS 1 SEC OH 

17 88 DflGT * $8817 DftGENTELLER LOPENDE TUB 

18 88 SETB * $8818 START OUTPUT 
IS 88 STOPD * $8813 STOP OUTPUT 
Ifl 88 HOUR * $B81fi UREN 

IB 88 SETH * $881B 

1C 38 STOPH * $881C 

IB 88 KIN * $881B MINUTEN 

IE 88 SETS * $B81E 

IF 88 STOPM * $881F 

28 88 SEC * $8828 SECONBEN 

21 88 SETS * $8821 

22 88 STOPS * $8822 

23 38 WFLflG * $8823 FLAG OUTPUT 

24 88 OUTVIft * $8824 GEEF 88N BITS OUTPUT 

25 88 INBTYD * $8325 INBEX TUB 

28 88 RESERV * $8828 CNIE7 GEBRUIKT) 

27 38 DflTfiR * $8827 DfiTft OUTPUT RUSTTOESTflND 

28 38 BflTflU * $8828 DflTfi OUTPUT HE(R)KTIJB 
23 88 SflVREG * $8823 SAVE fiCC 

2fi 88 SftVXRG * $882fi SflV'E X 

2B 38 SAVYRG * $B82B SflV'E Y 

2C 38 NRDIGT * $882C NR DISPLAY 

2B 38 HUYZIG * $BB2B TE UIJZIGEN TUB 

2E 38 SUM. * $882E VERTRflfiG UIJZIGEN 

S8 18 BRBV * $1888 BATS REG. POOR! B VIA 

82 18 BBRBV * $1882 DATA BIR. REG. POORT B VIA 

* 
* 

F3 88 INn * $88F3 

Ffi 38 POINT! * $88FA 

FB 38 POINTH * $B8FB 

7E 1A IRQL * $1R7E 

7F lfl IRQH * $1R7F 

81 lfl PftBB * $1AB1 

FF 1A CNTH * $1AFF 
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PfiGE 83 



6284 
82BE 
8288 
8283 



8E iD 
CC ID 
F3 10 

8288 78 
3281 18 
A2 18 
A3 88 
35 15 

m 

mm 

18 

A3 81 

85 27 
43 FF 
85 28 
S3 81 
85 24 
A3 84 
80 7E 
A3 S3. 
80 7F 

JjU OX 

Efi 
Eft 

AE 2ft 
S 80 83 
18 

A4 25 
F8 2F 
S3 28 
C5 28 

im xo 

B3 10 



828C 
828E 
8218 
8212 
8214 
821E 
8218 
821ft 
8210 
821F 
8222 

fV-i'MT 

8228 
8227 
8223 
822C 
822D 
822F 

rv-t-ri 
WXOl 
rv-i7 
uxon 
nk-i*rr 
ISXJD 
ft-,7n 
BXJG 
n-^iTri 
»XOD 

8230 

wxor 

8242 
8244 
824B 
8243 
B24B 
824C 
824E 



tOXJJ 
WXJJ 
XJO 

825fi 
825C 
B25E 



1ft 

lft 
S3 



88 



im xi 

83 lft 

PC 4 A 
LnJ IM 

08 lft 
B3 17 
F8 535 

■m 
lO 

C5 17 
08 18 
38 

C3 82 
08 85 

-in rw\ 
X«J OH 

FB 38 
A3 82 

ne *vr 
OJ &3 

85 25 



83 



SCANDS 
SHOW 

GETKEY 

START 



VUL 



* 

SEI 
CLC 
LDXIM 
LDfilri 

STftftX 

0EX 

BPL 

etc 

LDRIH 
STft 

EuRlrl 

STft 

LDRIH 

STft 

LDfilri 

STfi 

LDftlH 

STfi 

JSR 

NOP 



$1D8E 
$1DCC 
J10F3 



$18 
$88 
STTflB 

VUL 

$81 

DfiTfiR 
$FF 
DflTfiW 
$81 

rw ITt IT T\ 
UUI Vlh 

$fi4 
IROL 



INITIALISEER LGCATIES 



DfiTA UITGRNGEN IN RUST 



OfiTA UITGRNGEN EFFEKTIEF 

uccr hum HtiLhc riiia 

OUTPUT W0RDEN 

ADRES IRQ-ROUTINE ' INTERR' 



LDTIME START KL0K 



LOAD 



LDX SfiVXRG 
JSR LDDISP 
CLC 

LDY 1NDTYD 
BED HLOQP 
LDfiAY SEC 
Lnr act- 
BNE HLDDP 
LDfiAY HIN 
CHP MIS 
BNE HLDDP 
LDfiAY HOUR 
CMP HOUR 
BNE HLDDP 
LDfiAY DfiGT 



INDEX TIJDCONTROLE 
Y=8 =)GEEN CONTROLE TIJD 
Y=l => CONTROLE START OUTPUT 
Y=2 => CONTROLE EIND OUTPUT 



CLC 
CMP DfiGT 
BNE HLDOP 

SLDGOV TYfi 

CMFIH $82 
BNE OUTPUT 
JSR STPOUT 
BEQ HLDDP 

OUTPUT LDfiIH $82 
STfi WFLRG 
STfi INDTYD 

* 

* HOGFDPROGRflrtHfi 

* 



SLDGOV 8 => SLfi DAGTELLER OVER 



INDEX => act 

START OF STOP OUTPUT ? 



R.AG START OUTPUT 
INDEX STOP OUTPUT 



1848 


i iv-ir nk 4 r\ 
■ WXOW ID 


KLOOP 


CLC 






4 rvcrk 
LChJV 


: 8261 A5 23 




LDfi 


WFLftG 




iSbS 


: 8283 F8 83 
: 8285 28 7A 83 




BEO 


RESET 
TROUTP 




1878 




JSR 


TROGGLE OUTPUT 


1888 


: 8288 28 F3 ID 


RESET 


JSR 


be i r\c r 


WIJZIGING OUTPUT-TIJOEN ? 


1838 
1388 


: 8286 08 83 




BNE 


NORES 


NEE - GEEN RESET 


: 8280 28 S3 82 




JSR 


RESETT 


W1JZIG TIJDBi 




' 8x78 IS 


NORES 


CLC 






1328 


: 8271 28 SE 10 




JSR 


SCANDS 


DISMAY TIJDEN 



WOD'SJaMO^AllOp'MMM 



KENNER 



OUTCLK THE JUNIOR PROiiOTIMG CY M3) 



page m 



8274 
8275 
13277 
3279 
827B 
K 
K 
82S0 
13281 
8282 



A5 IB 
FB E7 
A3 88 
85 IE 
F8 08 
EA 

Efi 

EA 
EA 



8285 38 
8287 C3 
8283 38 
828B F8 
828D C3 
828F FB 
8231 C3 
8233 38 
8235 8B 
8238 28 
8233 88 
823A 18 
823B C3 
B23D IB 
823F A5 
82A1 Aft 
82A2 83 



OAHD **M 



8C 
2A 
IB 
8A 
83 

\T 

84 

4C 
1J 

ntr 
\LkJ 



CLC 

IDA 8ECR.G 

BED nLODP 

LBAIH $88 

3TA SECFLG 

BED LOAD 

NOP 

NOP 

NOP 

NOP 

* SUBROUTINES 

RESETT mm $8C 

SHI OK. KEY 

CHPIM $18 

SKI FALSKY 

BED ADKEY 



1 SEC VERSTREKEN ? 
NEE 

RESET FLAG 



CONTROLEER TOETSWfiARDE 
I < BC = GELIJKZETTEN 



BEG 



FALSKY 



VJ-HC oj 

82BB 88 
8281 18 
82B2 85 
82B4 23 

82B7 4A 
B2B8 85 
B2BA AA 
B2BB A5 
82BB 23 
82BF 85 
82C1 28 
82C4 EA 
82C5 EA 
B2CE EA 
82C7 A3 
82C3 85 
82CB 28 
B2CE CE 
62B8 D8 
82D2 EA 
82D3 EA 
82D4 EA 
B2D5 EA 
82D6 28 
82D3 D8 



8A 83 

12 
88 

•-VT 

81 
84 

•-Y7 

88 

AC 

23 



FKEY 
FALSKY RTS 
ADKEY JSR STPOUT 



FKEY 



RTS 

ULL 

CHPIM 

IDA 

LSRfi 

SDCIh 



$12 
PC/ST 



AD-TGETS INGEBRUKT 
GO-TOETS DOET WET ICE 

TOETS RD = STOP OUTPUT 
FUNCTION-KEY DA.STP.GG 

TOETS DA = ENABLE START/STOP 



PC/ST 



23 
83 
2B 

ED 83 



FF 
2E 
SE 
2E 
F3 



F3 ID 
D5 



RTS 

Akin t u 

i nr>n 
LOKH 

STfi 

LDftIM 

STfi 

KEYRDY RTS 
1C 

bin 
ANDIri 

LSRfi 
LSRfi 
STA 

TAV 
IMA 

LDA 
RNDIH 

r*TA 
DIM 

JSR 
NOP 
NOP 
NOP 

LDAIri 

aiH 

tnn 
JOK 

DEC 
SNE 
NOP 
NOP 
NOP 
NOP 
JSR 

etc 



CONTROLEER START OF STOP 
INDIEN 81 = STARTTIJD 
82 = STOPTIJD 
TOETS PC OF ST 

GEEFT 3 VOOR ST-TOETS => STOP 
GEEFT 82 VOOR PC-TDETS => START 



INDTYD 

384 

UFLAG 
388 

INDTYD GEEN TIJDCGNTRDLE 



SAVREG 
SBC 



SCKUIF NAAR BIT 8+1 

OMVAhU 

SAVREG 

383 MASK BIT 8+1 
SfiVYRG 

LDDISP gekozen uaarden in disp-reg 



ID LSLOW 



SFF 

SCANDS DISP TE WIJZIGEN WAARDEN 

SLOWL 

LSLOW 



GETKEY TOETS NOG INGEDRUKT ? 
KEYRDY RETURN INDIEN TOETS LOS 
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S2DB 
82BC 
82DE 
82E0 
S2E2 
B2E4 
S2E5 
82E5 

nnrn 
KLiLLO 

82ES 
B2EC 

iv-vrr 

82EF 

Kirn rn m. 
TV 03 w 
nnrn nc 

82F4 A3 06 
34 2B 



«n 
Id 

fi5 2ft 
SB 85 
ft5 2B 

FB 81 

78 

nn 
ISO 

85 2B 
D8 84 
A3 as 

D8 84 
8ft 



8nrn 

B2FA 
82FC 
82FB 

ivirr 

8381 
8382 
6384 

Km 

ivrftri 

838ft 

n-rrkn 
WOOL, 

B38F 
8311 

K« T 
iO 

n-r< c 

KkH J 

n-r< ~t 
UOi / 

n-T4 n 

831C 
831D 

n-r< r 
woir 

8321 
8324 
832E 



03 

nn 
oo 



D8 FB 
65 2ft 
AS 



fiT'-ir 

8338 

n-r-m 

K7 I. 

0338 

833ft 
833C 
833E 
8348 
8342 
8344 
S345 

nmn 
<0O<tO 

834ft 
834C 
834E 



WYZIG 

mm 

NRDIS 

DRIES1Y 
PLUSX 



Wl 41 l» 

D3 1/ \UV 

85 2D 

■in 
IO 

A3 7F 

8D SI 1ft 

S3 7F 



ftE 
ft5 

28 CC ID 
Efl 
Eft 
Eft 

CE 2E 
DB F2 
2B F3 ID 
D8 28 
m 

rn 
TO 

Air nn 
HJ Aj 
rn n* 

ou m 

nc nn 
OJ £U 

DS 

«n 

lb 

ac nn 

23 83 
C3 81 

"711 T\i 
■JV UL 

rn nn 
fU KJM 

ft5 2D 
C3 88 
38 C3 
S3 88 
FB C3 
fl5 2D 

Cn n». 
3 

38 BF 
A3 88 
FB B3 

SB 2B 



CLC 
LDft 
BNE 
LDft 
BEG 
SEI 
PHP 
LDft 
BNE 

LDAIri 

BNE 
ftSLfi 
ASLA 
ftDCIh 



SftVXRG 

HI Lib 

SftVYRG 
WYZIG 



SftVYRG 



lOPENK 

lunnnTn i rr> i it tnru 

tt ti\ t nnnT rvAii t\nnn 
iiji/ Luun unn Juuh 

STOP INTERR I SEC. TEL 
LEG PS VftST (ELI / SE 



NRDIS 



Ut tit r» nnrrn i rn 
1JLIU 1/MUICi.Lhh 

BEREKEN NR DISPLAY 



484 

NRDIGT 
538 

SftVYRG 
PLUSX 
$83 



RES8 
VERHG 



SHOWS 



BEQ 

adcib 

DEY 
BNE 
ftDC 
TfiY 

PTVi 

3 1 I 

LDftftY 
bill 

n n 

lLL 
\ t\atu ±-ir 



MHO DISPLAY 



3 * INH. Y-REG. 



nnuvnp 

INDEX TE WIJ21GEN LOC. 

r-A»i\inn nniir rvmrv 

orivinb brivh ira/CA 

DAGT TE UIJZIGEN WAARDE 
HWYZ1G WERKLDCATIE 



LDAIM 
STA 

i nv 
LIM 

LDft 



$7F 
SLOWL 



INSTELLING 
SNELHEID WIJZIGEN 



SHOW DISP TE WIJZIGEN WftftRDE 



NOP 
DEC 
BNE 
JSR 
BNE 

ac 

SED 

i nn 
Ll/H 

ADCIH 
STA 
ELD 
CLC 

i nn 
LUti 

SNDIrt 

CMPIfi 

BHI 

BEC 

i nn 
Lim 

nwnt 

Bill 



SLOWL 
SHGWA 

GETKEY NOG TDETS INGEDRUKT ? 
HERSTL TOETS LOS => SPRING 



HWYZIG INCREMENT HWYZIG 

Vol 

HWYZIG 



EIND DEC. CORRECTIE 



SflVREG 

$83 

$81 

VERHG 

CDRHR 



CORR. 
CORR. 
CORR. 



VOOR DRG/HR/HIN OF SEC ? 
DA GEN NA 33 => 88 



CORHR 



BEG 
LDA 
CHPIM 
BUI 
LDAIh 
BED 

HERSTL LDX 



HWYZIG CORR. "IN OF SEC 
$G8 

i trni in 

vtnnu 

MM 

woo 
RESB 

$24 
VERHG 



RESET HWYZIG 
CORR HOUR-LOC 



RESB 

SftVYRG INDEX X 



WOD'SJaMOIjAftOp'MMM 



DE 



KENNER 



DUTCLK THE JUNIOR PROMOTING CV (WW) 
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3218 

3228 

3238 

3248 

3258 

32GB 

3278 

3288 

3238 

3388 

3318 

3328: 

3338 

3348 

3358 

33G8 

3378 

3388 

3398 

3408 

3418 

3428 

3438 

3448 

3458 

3468 

3478 

3488 

3498 

?cnn 

7C4 n 

3538 
3548 
3558 
3568 
3578 
3588 
3598 
3588 
3618 
3628 
3638 



3658 



3688 
3698 
3788 
3718 
3728 
3738 
3748 
3758 
3768 
3778 
3788 
3798 
3888 
3818 
3828 
3838 
3848: 



8358 A5 
8352 35 

8354 68 

8355 29 
8357 FB 

8359 28 
B35C 28 
835F 60 
8368 Efi 

8361 Efi 

8362 S9 
8364 85 
8366 fi9 
8368 SD 
836B 58 
836C 68 
636D B5 
836F 85 
8371 B5 
8373 85 
8375 B5 

8377 85 
8379 68 
B37fi 18 

8378 A5 
837D 8D 
8388 fl5 

8D 



2D 
17 



83 

62 83 
60 83 



LDfi HUYZIG GECORR. UfifiRDE 
STAAX DftGT 



AND If! m 



REfiDY 



BEQ 
JSR 



REfiDY 
LDTIHE 
LDDISP 



ac 

15 
FF 

FF lfi 



28 
F9 
ID 
Ffi 
lfi 
FB 



RTS 
NOP 
NOP 

LDTIHE LDfllH *8C 
STfi STTfiB 
LDfllH *FF 

STfi tm 

CLI 
RTS 

LDDISP LDAAX SEC 
STfi INK 
LDfifiX I1IN 
STfi PGINTL 



UfiS PROCC. STATUS 
INTERRUPT-FlAG ? 
SPRINGT flLS TIJD NOG LOOFT 
RE-STftRT TIHER-INTERR.HODE 
D1SP GEMIJZIGDE TIJD 



STARTUAfiRDE OFFSET 



TIJD LOOPT 
KLOK LOOPT 

NflfiR DISPLAY LOCflTIES 



LDfifiX HOUR 



24 

tyn 

ZD 



IS 



8385 49 

8387 85 

8388 68 
338ft 18 
83S8 h5 
838D 3D 

8333 49 
8332 85 

8334 fi3 
8336 85 
8338 fi3 
333S 85 
B33C 68 
833D Efi 
833E Efi 
833F Efi 
B3fi8 Efi 
83A1 Efi 



88 18 
81 



27 

88 18 
FF 

n>< 



oTfi 
RTS 

TROUTP CLC 
LDfi 
STfi 
LDfi 
STfi 

EORIrt 

STfi 
RTS 

UX 

LDfi 
STfi 
EDRIH 

blH 

LDfilH 

r*TA 
DIM 



PDINTH 



Tv'Ifi 



TROGGLE OUTPUT BIT 8 
BIT 8 VIA OUTPUT 



STPOUT 



OU.. 
DDRBV 
DfiTfiW 
DRBV 

$81 TROGGLE DATS BIT 8 
DftTflW 

STOP OUTPUT 

DfiTflR 
DRBV 

DfiffiW PRESET DfiTftW = OUTPUT ON 
$81 

INDTYD 



LDflIM . 

STfi HFLAG RESET FLAG OUTPUT 
RTS 
NOP 
NOP 
NOP 
NOP 
NOP 



83A2 
83A3 
83A4 
83A5 
83A8 
83A7 
83A8 
B3Afl 
83AB 
83AC 
83AD 
83AF 
83B1 
83B3 
B3B4 



Efi 
Efi 
48 
18 
Sfi 
48 
AG 
Cfi 
Cfi 



B5 88 
81 81 
Sfi 

D8 89 



* INTERRUPT ROUTINE 

* 

NOP 
NOP 

INTERR PHfi 
CLC 
TXfl 



fiCC NAflR STACK 



PHfi 

LDX 

DEX 

DEX 

DEX 

STX 

LDAAX 

STflIX 

TXfl 



™ X-REG NflfiR STACK 
STTfiB POINTER TIRER-LOCfiTIES 

STTfiB 

FACTOR OFFSET TIMER 
CNTXL START TIMER 

POINTER = 8 => 1 SEC OM 
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3838 
3388 
3318 
3328 
3338 
3348 
3358 
3368 
3378 
3388 
3333 
4888 
4828 
4828 
4638 
4848 
4858 
4888 
4878 



4i88 
4118 
4128 
4138 
4148 
4158 
4188 
4178 
4188 
4133 
4288 
4218 
4228 
4238 
4248: 



B3B8 88 15 
83BA 88 18 
83BC 28 C4 83 
838F 88 
83C8 88 
83C1 88 
83C2 48 
83C3 Eft 
33C4 18 
83C5 F8 
83C6 A5 28 
B3C8 83 81 
83Cfl 85 28 
83CC C3 88 
83CE 33 25 
83D8 82 88 
83D2 88 28 
83D4 
83155 

83D7 83 81 
8353 85 ID 
83DB C9 88 
83DD 38 IB 
83DF 88 ID 
83E1 18 
83E2 85 lfl 
83E4 83 81 
33E8 85 lfl 
83E8 C3 24 
83Efl 38 83 
83EC 88 lfl 
83EE 18 
83EF S5 17 
83F1 83 81 
83F3 85 17 
83F5 18 
83F8 D8 
83F7 88 



85 ID 



NCSEC 



LiMiFl 

SIX 
3TX 

ton 

Jan 
FLft 
TAX 
FLfi 
RTI 
NOP 

mm Etc 

SED 
LDfl 
8DCI" 
578 

aipm 

BUI 

LDXIM 

S7X 

HC 

LD8 

8DCIM 

S78 

CMPIH 

BHI 

S7X 



$SF 

S778B 

SECPlG 

INCTIil 



SEC 
331 
SEC 
$83 



WAARDE POINTER TOP TRBEL 

SE7 R.AG 1 SEC OH 
INCREfENT LOPENDE TUB 

HERS7EL X-REG 
HERSTEL 8CC 

PS => CARRY - IN7.FJK; 

INCREMENT KLOK 1 SEC 

DEC1H88L 

SECONDB! 



DEC.MD 



SEC 

nin 
m 

FUN 
$83 

RETURN 



HIMJTEN 



LDfl 

STA 
CMPIM 
Bill 
STX 
CLC 
LDfl 
8DCIH 
STft 

RETURN CLC 
CLD 
RTS 

5 END OF PROGRAM 



UREN 



nnun 

nuun 

$81 

HOUR 
$24 

RETURN 
HOUR 



DftGT D8GEN 
$31 
DAGT 



Met PfOSfouimd OUTCLK i5 geSChreven Om «dt eFviF i uS OP 
te duen met 

1 : de timers in de 6532 en later in de Vlfi 5522 

2 : het seven van andere funkties aan de toetsen 

3 s uitsturins via het LED-disPlay 

Het is seschreven voor de JUNIOR* maar zal na enise 

mini 08 Wi J Zi 9 in9£ri OOk OP de Kill lOPerii dl thinS in 

de oorspronkel i jke versie (timers Plft 5532). 
Voor de 6532-timers worden de waarden uit de tabei 
»8888 tin *838E seno«en, zodanis dat 1 k de tabei Plus 
tijd instrukties in interrupt rout ine (wordt 5 x Per 
seconde door I open) ca. 1 seconde worsen, 
fif * i j R i nseri kunnen ontstaan door de nauwkeurigheid van 
het 1R-Xtai» of beter sezesd! het sebrek aari nauwkeu- 
risheid; Plus het feit dat een interrupt kan Plaats- 
vinden in een 1, 2 of 3-byte-instruktie, welke eerst 
moet Morden afseaaakt. 

Voor de 5522-titters list de zaak simPeler. De titter 
no. 1 wordt eenmalis seprosrasmeerd op 1/28 sec. in de 
f ree- running mode, fifwiJki risen zi jn nu uitsluitend van 
de Xtal-waarde afkomstis. Wei meet steeds het overeen- 
koastise vi asset Je in het IFR-register worden sec lea red, 
maar dat is ook ailes! Het aftellen van de timer saat 
echter ondertussen door. 

ftijzigingen voor de free-running timer in de vlfi E522 : 

Tabei 03 t/m 8E vervalt 

8222 28 F3 133 JSR LDTIKE START KLOK 

8353 28 14 84 JSR STTIHE RE-STfiRT KLOK 

8352 t/m B35C vervalt 



SYMBOL TfiBLE 4888 4258 111282 PfiGE 81 



J.K. Vernimirien. 



F8CT0R 
DAGT 8817 
SETH 881B 
STOPS B81F 
WFLfiG 8823 
DRTAR 8827 
SAVYRG 8B2B 
INH 8SF3 
START 8283 
OUTPUT B25A 
RESETT 82S3 
FCOST 8287 
WYZIG 82E5 
PLUS* 82FF 
CORHR 8344 
LDDISP B38D 
NCSEC B3BF 



Hi 
IS 



CNTXL 
SETD 
STOPH 
SEC <ovi. 
OUTVIS 8824 
DATAW 8828 
NRDIGT 
POINTL 
VUL 
HL0OP 

FBLSKY 8235 
KEYRDY 82B8 
WYZIGT B2EE 
RESP 8387 
HERSTL B34E 
TROUTP 8378 
INCTItf 33C4 
187E 
1D8E 



STT8B 
STOPD 



8815 
8813 



88F8 
823S 
82E8 



nn 

SETS 8821 
INDTYD 8825 
SAVREG 8823 
HWYZIG 882D 
POINTH 88FB 
LOAD 3227 
RESET 3268 
ADKEY 8238 
OKNKEY 82B1 
NRDIS B2F2 
VERHG 8383 
RE8DY B35C 
STPOUT 8388 
RETURN B3F5 
3RQH 1A7F 
SHOW 1DCC 



SECFLG 8318 
HOUR 8818 
SETS 331E 
STOPS 8822 
RESERV 8828 
SAVXRG 8828 
SLOWL 882E 
OUTCLK 8288 
SLDGOV 8258 
NDRES 8278 
FKEY 8238 
LE3.0U B2CB 
DRIEHY 82F8 
SHCUA 3313 
LDTIME 8382 
1NTERR 8384 
DRBV 1888 
PADD 1A81 
GETKEY 1DF3 
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Programrneermethoden v/oor we tenschappeli ike funkties 



door Danny Backx 



Groo treesdi jk 12^+ 
B-246D Kasterlee 
Bel^ie 



Het rekenprogramma dat door de programmeerweds tri jd zal warden 
samengesteld kent vier bewerkingen : de optelling, de aftrekking, 
de vermenigvuldiging , en de deling. Het is mogelijk een computer 
veel meer bewerkingen en funkties te f leren f , uitgaande van 
die vier hoof dbewerkingen . 

Ik zal hierbij de formules geven van een stel van die funkties, 
die vaak oak in een BASIC-interpre ter aanwezig zijn, en van 
enkele zal ik oak een voorbeeld geven voar het programma, maar 
dan in Pascal-code. 

De eerste twee funkties, de exponentiele en de logaritme, zijn 
volgens mi j het meest noodzakelijk, omdat ze noqal wat worden 
gebruikt, maar ook omdat ze nodig zijn voor de machtsverheffing. 



Zoals ik hierboven schreef maakt de machtsverheffing gebruik van 
de twee eerste funkties. Dit is echter alleen nodig als de 
exponent (hier x) een niet-geheel getal is ( int(x) ^ x ). 



De goniometriche funkties kunnen zo ook worden berekend. Het 
principe waarop die regel voor de exponentiele, de logari tmi sche 
en de goniometrische funkties steunt is de Taylor - reeks. 
U kan hier meer over lezen in allerlei wiskunde-handboeken . 



x 2 x 3 

exp ( X ) = 1+ yj- + !y + jy + 




y x m e (x inCy» m Gxp(x m ln(y)) 

\fy = y (l/x) = exp (ln(y) / x) 
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Dg theorie ervan staat altijd uel in de buurt van di f f erenti aal- 
rekenen. 

x x 3 5 7 

sin (x) = TT-n + n-7T + --- 

2 4 6 

CDS (X) = 1 - ^ * |j - ^ + -... 

tan (x) m sin (x) / cos (x) 
cot (x) = cos (x) / sin (x) 

De omgekeerde funkties hiervan : 

arcsin (x) = x * 1 x & ■ 1 * 3 - ^ ■ 1 * 3 * 5 - x? 



arctan (x) =x-~+£--£-+- 



XXX 

r * r " r 

De hyperbolischp ^unkt^es : ? 

sinh (x) . ♦ ^ + £ + *- + ... = exp(x)-exp(-x) 
cosh (x) = 1 + ^ * ^ + || + ... = exp(xUexp(-x) 
tanh (x) = sinh (x) / cosh (x) 

3 5 7 

P „, nh r x x 1^3 x 1x3x5 x 

aroinh ( x ) - x - - x r + ^ x j- - — - x r + 

3 5 7 
artanh(x) = x + ~ + ^ + ;l- + 



Ik zal nu enkele voorbeelden geven in Pascal-code. 

Het eerste voorbeeld is er een voor de vi erkan tsuor tel . De formule 
hiervan heb ik nog niet gegeven , ( alleen die voor uortels in het 
algemeen). Het meest wordt echter de vi erkan tsuor te 1 gebruikt, 
en daafc bestaat een andere methorie voor. 

FUNCTION vierkantsuortel (getal : real):real ; 

var nieuu, oud : real ; 

begin 

getal := abs(getal) ; 

oud := 2 ; 

repeat 

nieuu := oud ; 

oud := ((oud + getal / oud ) / 2 ); 
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until (nieuu - oud)/oud < 1E-6 ; 
vierkantsuortel := nieuu ; 
end . 

Nu v/olgt een voorbeeld van In. 

FUNCTION nat-log(getal : real):real ; 
var teller : integer ; 

breuk , produkt , som : real ; 
begin 

getal := abs(getal); 
som : = 0 ; 
IF getal <> 1 then 
begin 

breuk := (getal - 1)/(getal + 1 ) ; 

produkt := breuk ; 

FDR teller := 1 do 15 DC 

begin 

s o m : = som + produkt / teller ; 
produkt := produkt * breuk * breuk ; 
end ; 
end ; 

nat-log := som / 2 ; 
end . 

Ik geef ouk een voorbeeld v o □ r sin. 

FUNCTION sin (getal : real): real ; 
var teller : integer ; 

breuk , som : real ; 
begin 

teller : = 1 ; 
breuk := getal ; 
som := 0 ; 
REPEAT 

som := som + breuk ; 
teller := teller + 2 ; 

breuk := - breuk * getal * getal / teller / (teller 
UNTIL teller = 17 ; 
sin:= som ; 
end . 
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Tenslotte enkele funkties die op een andere funktie steunen. 

FUNCTION machtsverheff ing(getal , exponent : real): real 
begin 

IF f rac ( exponent ) m 0 then 

machtsv/erhef f ing := macht (getal , exponent ) ; 

else 

machtsverhef f ing := exp ( exponent * na t- 1 o g ( ge t al ) ) ; 

end . 

FUNCTION macht (getal , exponent : real ):real ; 
var teller : integer ; produkt : rmxtl ; 
begin 

if exponent = C then macht := □ 
else begin produkt : = 1 ; 

Tor teller : = 1 to abs(exponent) do 

produkt : = produkt * getal ; 
if exponent > D then macht ;= produkt ; 
else macht 1 / produkt ; 
end ; 
end . 

FUSeTIflW log(getal :' real) : real ; 
const logtien = D . ^3^25^48190 19 ; 
begin 

log := logtien * nat-log ( getal ) ; 
end . 

FUNCTION tan(getal : real) : real ; 
begin 

tan := s i n ( g e t a 1 ) /co s ( g e t a 1 ) ; 
end . 

FUNCTION sinhtraag(getal : real) : real ; 
begin 

sinhtraag := (exp(getal) - exp ( -getal )) /2 ; 
end . 
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FUfMTIDW sinh(getal : real) : real ; 
var teller : integer ; 

breuk, sum : real ; 
begin 

breuk := getal ; 
som := 0 ; 
teller := 1 ; 
REPEAT 

som := som + breuk ; 

breuk := breuk * qetal * getal / (teller + 1) / 

(teller + 2) ; 

teller := teller + 2 ; 
until teller «= 17 ; 
sinh := som ; 
end . 

Zoals U uel kan zien zijn de vier hoof dbeuerki ngen , aangevuld 
met een subroutine om te zien of een getal posiitjief of neqa- 
tief is, voldoende om een massa andere funkties en bewerki ngen 
uit te kunnen voeren. In het voorbeeld van de machtsverhef f ing 
is ook enn funktie 'frac 1 gebruikt. Die gee ft het decimale rieel 
van een getal. frac(x) =- x -int(x). Deze funktie is echter niet 
noodzakeli jk . Ik heb er hier ook geen formule vo^-r, omdat die 
funktie afhanqt van het formaat uaarmee de getallen in het 
geheugen zijn opgeslagen. 
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"SDlt 

";D$ 
";A 



■;F$ 



l ;TAB(77)» 



-I' 



IB REM 'INVOEREN VAN OE GEGEVENS" 
20 PRINT CHR*(2E) 
30 INPUT "FAKTUURDATUM 
40 INPUT "UW OPDRACKT D.D. 
50 INPUT "UW WENMERK 
80 INPUT "AANTAL 
70 INPUT "OHSCHRIJVING 
80 X=LEN(0*) 
30 IF X>38 THEN 458 
108 INPUT "BTUKSPRIJS 
118 INPUT •FfiKTUUBUMER 
128 GOSUB £38 

138 PRINT CHR$(31>5" FBKTUUR NR. : ";F* 
148 GOSUB 1080 
158 Y=S 
1E8 GOSUB 480 

178 PRIST TftB(2) ,, !";TfiB(ll-tEN(STR*(fi)))fi;TaB(13)"i' 
188 PRIST TAB(15);0*iTAB(51)"IFL*;TAB(51+Tl);X*: 
138 Y=A*S 
208 GOSUB 480 

218 PRIST TAB(&4)"iFL.";TAB(64+Tl)+X$;TABC77)*i u 
228 FOR X=l TO 20 

238 PRIST TfiB(2)"r , ;TftB(13)"!";TaB(51)"i";TRB(E4)"l' 
243 NEXT X 
'^53 PRIST CHR$(38) ? 

2B8 PRIST TfiB(2) , 'i M ;TftB(13)"]";TftB(43) , 18/l BTW !'; 
278 Y=A*S*1B/1B6 
288 GOSUB 488 

238 PRIST TflB(S4)"l--";TftB(&4+Tl};X*;TAB(775"l" 
308 PRIST TRB(2)"i";TRB(13)"i";TftB(51)"i";TftB(&4) B !- 
318 PRIST Tfffl(2)"i u ;TflB(13)"l";TftB(5i)"i";TBB{G4)"!";TRB(77) M l" 
328 PRIST TRB (2) " 1 " ; TAB ( 13) " 1 " ;TfiB( 4i) "TDTfifiL !" ;TAB(64)'iFL "5 
338 Y=(A*S)+(A*S*18/10B) 
348 GOSUB 488 

358 PRIST TAB<&4+Tl);X*;TAB<77)"i* 

388 PRIST TfiB (2) " l" ; TfiB ( 13> " ! " !TAB( 5i) 0 1 " ;TflB(E4 ) " i ===== 1 
378 GOSUB 1218 
388 PRIST CHRi(2S) 

338 INPUT 'NOGMAALS UITVOEREN ? M ";J* 

408 IF J$="J" GOTO 120 

418 INPUT "PflKBCN NAKEN ? J/N *m 

428 IF P*s'J' GOTO 370 

438 GOTO 28 

448 END 

458 PRIST CHR*(87);X-35;"P0SITIES TEVEEL !!!" 
488 GOTO 78 

478 REM "BEREKENEN VAN HET KET BEDRAG EN UITRICHTEN" 

488 Y=INT(10B*Y+.5)/10 

438 IF Y-IST(Y){)0 THEN 530 

508 IF Y/'1B-INT(Y)/18<>3 THEN 570 

513 A$=STR$(Y*1B) 

523 GOTO 580 

538 RHCTRUV/ID 

543 A*=LEFT$(AS, LEN(ft*>-3)+', "+RIGHT$( At. 2) 

553 GOTO 830 

583 GOTO 530 

578 ft4=STR*CY/18)+ u a" 

588 IF LEN(AS)=3 THEN A4= , 3"+A* 

538 fl$=LEFT«».LEN(W)-2)+","+RIGHT*(ft*,2) 

808 IF LEN(A$)<=7 THEN 843 

818 A*=LEFT*(A$,LEN(A*)-6)+". n +RIGHT*(A$,6) 

828 IF LEN ((*)(= IB THEN 640 

838 A*=LEFT*(A$, LEN(A$)-18)+". "+RlGHTt(A$, 18) 

843 T=13-LEN(A$) 

658 X*=A* 

666 T1=T 

873 RETURN 

688 REM "AFDRUKKEN VAN DE VASTE KOP" 
638 POKE 237, 12 



FRASS SMEEHUIJZEN 
LIPPEDAL 13 
2384 CL 

CflPELLE A.D. IJSSEL. 



FAKTUUR/PAKBON 



BIT PROGRAMMA IS GESCHREVEB 
0» SAMEN TE UERKEN MET EEN 
PRINTER. IN DIT GEVAL MET 
EEN OKI u88 MICROLINE. 

HET PROGRAMMA IS NIET VOL- 
LEDIG UITGEUERKT. HET IS DE 
BED0EL1N5 DAT DE LEZERS HET 
PROGRAMMA VERBETEREN, UIT- 
BREIDEN, AAKVULLEN, ETC 

ALLE REAKTIES 2ULLEN SERIEUS 
WORSEN BESTUDEERD EN EVENTUEEL 
TOT EEN GEHEEL GEMAAKT. 

TEVENS ZAL BEKEKEN UDRDEN OF 
HET TDT EEN NIEUWE PUBLIKATIE 
KAN LEIDEN, 20DAT IEDEREEN ER 

lifiT fifth 



DTHEEK. 



KAN HET DAN OPGENQ- 
" IN DE CASSETTE8IELI- 



SAABT EEN PAAR StmONHEIDS- 
FOUTJES HERSERGT HET PROGRAMMA 
EEN BELflNGRIJKE TEKORTKOMIHG: 
HET KAN SLECHTS EEN ARTIKEL OP- 
NEMEN, 

STUUR UW REAKTIE AAN DE REDAK- 
TIESEKRETARIS: 
S1LLEM L. VAN PELT 
JACOB JORDAENSSTRAAT 15 
2323 CK 

KRIMPEN A.D. IJSSEL. 
OK 
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788 PRINT CHR*(2E> 

718 A*=* JANSEN ADVIESBUREAU" 

728 R$=* 



C*=* DRTftCOfWLttllCATIENETUERKEN" 
748 PRINT CHR*(31) 
758 PRINT A* 
7E8 PRINT R$ 
778 PRINT C* 
788 PRINT 
798 PRINT 
888 PRINT 

818 PRINT CHR$(23) f ADRES : LIPPEDRL 13" 

828 PRINT" 2384 CL CftPELLE AAN DEN IJSSEL" 

838 PRINT" TEL : 018-512507"; 

848 PRINT CHR$(13)5 

858 PRINTTftB(5B);CHRt(30);"DE JEER DE UILDE* 
8E8 PRINT CKRJC23);* POSTBUS : 12345* 
878 PRINT" 0080 Aft ROTTERDAM"; 

888 PRINT CHR$U0); 

838 PRINTTftB(S7);CHR*(30); M KLAVERBLAD El" 

308 PRINT CHR$(23) ;" POSTGIRO : 1234557" 

318 PRINTTflB(37);CHR*C38);"3008 Aft ROTTERDAM." 

328 PRINT CHR$(23);" HANDELSREGIBTER ROTTERDAM : 123456" 

338 PRINT: PRINT: PRINT 

348 PRINT CHR$(3B) ;TftB(45) "ROTTERDAM. ";D1$ 
358 PRINT 
368 RETURN 
378 GOSUB 638 

388 PRINT CHR$(31)5" P A K B 0 N * 
338 GOSUB 1080 

1080 PRINT TftB(2)"l";TAB(ll-LEN(STR$(fi)))A;TAB(13)"l"; 
1010 PRINT TftB(15);0*;TAB(51)"!";TAB(64>"l";TftB(77)"l' 
1020 FOR X = 1 TO 25 

1030 PRINT TfiB(2)"l";TAB(13)"l";TflB(51)"l";TAB(64)"i";TaB(77)"r 
1040 NEXT X 
1050 GOSUB ? 1210 

1070 REM^ATORUKKEN VAN DE VARIABELE KOP" 

10B0 PRINT* " 

1B3B PRINT 

1180 PRINT CHR$(30);* UW OPDRACHT D.D. ";Dt;" "; 
1110 PRINT "UW KENMERK : ";K$ 
1120 PRINT 

1130 PRINT" »; 

1140 PRINT" " 

1150 PRINT" I AANTAL I OHSDffilJVING I"; 

1160 PRINT" STUKSPRIJS i BEDRftG I" 

1170 PRINT" 1 -; 

1180 PRINT" i" 

1130 RETURN 

1280 "REM AFDRUKKEN EINDE VAN tET FORMULIER* 

1210 PRINT" ■; 

1220 PRINT* " 

1230 PRINT CHR*(23) 

1240 PRINT* BETALIMj BINNEN 30 DAGEN NA FAKTUUR" ; 

1250 PRINT 'DATUM OP POSTGIRO 1234567 

1260 PRINT* T.N.V. JANSEN POSTBUS 123456 "; 

1270 PRINT*0B0B AA ROTTERDAM ONDER VERMEL-" 
1288 PRINT* DING VAN HET FAKTUURNUMHER. " 

1230 PRINT 
1380 PRINT 
1310 PRINT 
1320 POKE 237,00 
1330 RETURN 
OK 
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JfiMSEN_ftDV I ESBUREftU 
DftTftCDMMUNICfiTliNiTwiRKEN 



fiDREB : LIPPED AL 13 

2354 CL CfiPELLE flftN DEN IJSBEL 
: 111 




fifl ROTTERDfih 



: 



HflNDELSREGISTER ROTTERDAM : 123455 



DE HEER DE WILDE 

KLflVERBLftD El 
30130 ftfi ROTTERDAM. 



FftKTUUR IMR- 



ROTTERDAM, 200283 



UU DPDRftC'rIT D. D. 030283 



UU KENMERK : DW/RDfiM 



RANTftL 1 DMSCHRIJVING 
~4i~~7~CAisiTre^ 

i 
i 



I BTUKSPRIJS i BEDRAG 



IB% BTW 



TCTAAL 



FL. 



iB,53!FL. 







423, £-0 ! 



7£, 2! 



433,85! 



t ============ 



EETflLINB BINNEN 38 DfiGEN Nft FftKTUURDflTUI OP POSTGIRO 1234587 
T.S.V. JPNSEN POSTBUS 12345G 0000 fiA RCTTERDflfi DNDER VERMEL- 
DING VftX HET FflKTUUMMCR. 
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RENURBER VOQR DE KB-9 BASIC. 
(JUNIOR-UERSIE). 



MICRO - SDE ASSEMBLER* DIS- 
ASSEMBLER EN TEIT-EDITCR. 



JUNIOR CASSETTE NR. 



TE KDOP UEGENS 
fiBNSCHRF NIEUME TERMINAL 



Keen van Nieutieihove 
Consciencestraat 68-4 
3888 Leuven Beisie. 

schreef voor de KB-3 Basic 
een subroutine uaarftee nen 

reselnUiimerS kai herflUmieren. 
Sit PiOSraitti iS het-l hand i 9 

bii het ontwikkelen van Pro- 
graaaa's in Basic. 
Het program? van Koen zai 
niet warden opgenomen in de 
edi ties van DE 6582 KENNER, 
otidat de listing wesens tijd- 
gebrek niet van coimentaar 
Hon word en voor z i en. 
Bcwefiteel iordt voor rang ge- 
geven aan program' s we Ike 
we! van coimentaar ziin voor- 
zien. 

Besalniette«in bestaat er be- 
iansstei ling voor een reftua- 
berprograaaa voor de KB-3 
Basic. De redaktie heeft se- 
«eend een op tossing te kun- 
nen bieden door het program- 
Mi toch beschikbaar te stei- 
sen. Men kan het verkriigen 
door Fl.5> = over te taken op 
postrekenins 841433 t.n.v. 
W.L. van Pelt te Kriapen a.d. 
Ussel, under veraelding: 
g K8-3 Renuiber". 

JUNIOR CASSETTE NR. i 



In EE E582 KENNER nr. 22 is 
een overzicht gegeven van 
de inhoud van deze cassette 
«et 

Eiektuur Ephw prosr. + aan- 
vuMiag van J. van Sprang, 
4 - Koiom printer op video, 
Conversie van dag naar week, 
leisure! as, Music Bok, Doka- 
tiaer, flutoaatische resis- 
teruitlezing en Lotto. 
Besteiieri van de cassette 
door overschrijving op post- 
reken ins 841433 t. n. v. U. L. 
van Pelt te KriiPen aart den 
Ussel of d.a.v. blame si- 
robetaalkaart. 

Aridere wii2en van besteiien 
ziin Riet tfogelijk! 



Si nds kort heeft onze club 
de copyrights veraorven van 
de MICRO-ffflE feseabier, dis- 
assesbier en text editor van 
Peter Jennings. De club is 
het toesestaan, tot aeder- 
opzeggifig de ffiCRfl-flBE aan 
haar leden ter beschikkins 
te stellen. 

De MICRC-ADE kan worden be- 
steid bii de redaktiesek re- 
tar is, onder opgave van wat 
u nod i g hebt. 



Lassei 

(hypertape) 
Cassette 8K KIM 12,58 

(hypertape) 
Cassette SK JUNIOR 12,58 

(hypertape) 
Manual 38,88 
Source 4K KIM 38,88 
Patches S. Woldrisgh 75,88 
(4K KIM wordt SK KIM) 
Patches ft. Hankei gratis 
(aiieen bi J cassette 
voor JUNIOR + fianuai) 

Aanschaf van source en pat- 
ches is niet Perse d i rent 
noodzakeliiki men kan vol- 
st aan net cassette * Manuai 
+ patches S.itoidr ins h di.18 
(zie EE S582 KENNER nr. 17). 

Patches Di. 18 apart: 5,88 

Overschr i ivi «s op post reke- 
ning 841433 t.n.v. B.L van 
Pelt te Kriapen a.d. Ussel, 
of d. re. v. bi auwe 9 i robetaa i - 
kaart. 

BASIC CASSETTE NR. 1 



In DE S582 KENER nr. 23 is 
een overzicht gegeven van 
de inhoud van deze cassette 
net 

Bruto/'netto - netto/bruto 
loonberekenins, hypotheekbe- 
rekening, Ka lender, Eeuwka- 
iender, Hasische vierkanten, 
Hoofdrekenen, Bunny, Fruit- 
au toaaat , 0 1 i f ant, Zeese- 
vecht, Poker, Kaaniander, 
Afstartdspei en Bioritmes. 
Besteiieri a is bi J JUNIOR 
Cassette Nr. 1. 



Era in Rosseeuw, Begoniapark 7 
8-83S1 UestouterOteuvei land) 
Belgie, wii graag lay-outs 
aaken voor ua te publiceren 
hardware. Meer inlichtingen 
bij de redaktiesekretaris. 



Sebruikers van een PET kuri- 
nen bovengenoead prosraimia 
uit editie 25 op band best e J 
len door kontakt op te neaen 
met Rtfud Uphoff, sekretaris 
van onze club. 



In DE S5B2 KENNER nr. 24 is 
een overzicht gegeven van 
de inhoud van deze cassette 
aet 

FreQuent ietel ier net S522 , 
List Sneaonics (7 5Sa.di5Pi}, 
Shift, BASICDDE, RTTY, Easy- 
Editing Supporter (PRE), Sin- 
9l e Step Debus, Ual (breaker. 
Bestei i en van de cassette 
dis bij JUNIOR Cassette Nr. 1. 

?T05Tima* 5 Ziin Of OT i 9 i — 

nee I of bewerk i nsen uit het 

r • k n- _ r l/TM i 

riibt duuk ut run, ut diiaei t>- 

2 in s. ue kosten van de cas- 
sette ziJn kosteridekkend en 
niet bedoeid o« de Prosra*- 
nw s te kopen. 

4*1 en 

.•"JLmL vuun jutviun. 



Deze Basic-acht ise interpre- 
ter «et veel wiskundise funk- 
ties zoais! sin(x), cos(k), 
tan(x), arctan(x), wortel- 
trekken, in(x), lo9(ii), eri 
z u Krachtise strings is in 
Seder land! 

ii- _ i. r • t, . rciv*» n__ 

van! av r i i out i ne o jwz r i u- 

..... r. . _ i _ _ . > wsn n. m. 

n vi i nncan a • 

dlld> RfilLb IW QD-JVJi HSVl I tali 



« IMS UBI (ttmeM^ Qtif TIIM 

at* jufiiun thoi ruLrHL niei 

in Nederland en OBgeving te 

verkopen. 

iTi America kost de cassette 

...x if m - 4c %i 

.lift nMituofi v mui- Miub iu a 

verzer/dkosten. Focal zal de 
leden ftorden aanseboden 
voo r v r i j we l deze l f de pr i is. 
iftforsat ies" 
Dhr. J. Jan sen, 



Gerardsweg 38, 



n_ i mr« • +. nr rtrr»'-t 

uw at* iv rui-ML nuffiw ut biuku. 



iRViLC rwrruni 



FuBLIHfiTIES MET UH Lfiy-OUTS BASIC CCHPRESSOR FDR TrC PET l 



In BE ESS2 KENNER nr. 25 w- 
bii ceerde naar ten van Kintun 
d i t Offivan s r i ike Pros r a«na 
dat in de praktiik wordt 9e- 
bru ikt. rlet is een educat ief 
stun prografliReertechniek dat 
voor de liefhebbers spart op 



. — i. r i eg _ 

i tii auui ri. uj j« uvti te 

schriiven op post reken ins nr. 

o4x46o W.II.V. N.UV. reii ttf 

KriaPen a.d. Ussel, onder 
veriie Id ins" Cassette Service 
Rapport en. 



Teriinal, bestaand uit moni- 
tor net sroen schem, in te 
steiien voor heiderheid, RS- 
232 verb indi rig set kabel, 
baud rate tot 3o88, ftexi- 
Switch toetsenbord en 5V/5S 
Beitavoediris. 

werden Het de teriinal die 
«e r Kt als een stille tele- 
type de edities van 35E E582 
KENNER opgeitaakt. 
ElK aannenei iik bod wordt 
in overwegins genoinen. 
In format i ess W.L van Pelt, 

T_ _ t. . * _ 4C <VW CM/ 

JdL. JUIOdfUSijCI . 1U, Lf\ 

Kr in Pen aan den Ussei. 
Tel.: S1S87 - 1381. 

tt i/nnn f\/\kinrmT\r^i. 

ic rvUur HhTiucixJiihri* 



1 Computer PET (1378) + on- 
derde len, 

1 Printer CuMnodore, 



Te bevr. • J. VeldkanP, 

Ty naa r I osest r. 11 



ill OCffliVU tab If III. V4II L 

aprii 1532 kondisde Rockwell 

r*inr • _ _ , rent 

uma vfisitfs vdii nddi ouc/z 
mnuo s<-i ie dflin. in uumPUbd- 

ble nr. 51-52 van 24 deceit- 

of i mo*: leifii wf iiu a<*i dtf 

n**nr . . _.. ,. , , 

uiuo sei if iiu uuk ifvfiodiaii 

is. Techn ische detai Isi 
ve raosenbOPriafie 48nw bii 2 
Sesihertz (Nf!uS = 758 mW) 5 



Randuidisg: CUGS RS5C82; 
Kioksneiheid! 2, 3 of 4Snz; 
Sieuwe instrukties. 
i\ifUwe adresseernogel iikhe- 
den! indirect en indexed 
dbsoluut indirect. 
De UCS RSSt^^s uitwissel- 
baar net de S582. 



rniLiro untmRKfit nmnudiit? 

disitale datadisc set laser 



Philips iierk't mC'isfritffi ain 

een laser-sestuurde sagneto- 

OPt i SC he SChi if nit-t e ffi c 00 \'~ 

snee van 5 centiaer, voot de 
ops l as vati tien wesabytes. 
Vol sens PhiliPss is het een 
goedkoop alterr»atief voor de 

huidise fiertibfif SChijVen 

/ r . , -\ 

^TIUPMJ S'. 

De schiif zou over eerj Jaar 
of twee op de nidTkt kunnen 
konen. 



WOD'SJaMOIjAftOp'MMM 



